利用excel vba2010返回A列，最后一个含有数据单元格的行数

在Excel VBA 2010中，你可以通过编写一个宏来获取A列最后一个含有数据的单元格的行数。这通常涉及到遍历A列，检查每个单元格是否包含数据（非空值），直到找到最后一个非空单元格。以下是一个简单的VBA函数示例：

Function LastNonEmptyRow(AColumn As Range) As Long
    Dim lastRow As Long
    lastRow = AColumn.Rows.Count '先设定最大值为总行数
    
    '从最后一行开始向下检查，直到找到第一个空单元格
    Do While Not IsEmpty(AColumn.Cells(lastRow, 1))
        lastRow = lastRow - 1
    Loop
    
    LastNonEmptyRow = lastRow '返回找到的数据行数
End Function

你可以将这个函数复制到VBA编辑器（按Alt + F11打开），然后在需要的地方通过`LastNonEmptyRow(Range("A:A"))`来调用它。

相关问题

可以用vba代码实现例遍excel表中sheet1的A列每个单元格的文本 在B列返回另一表中包含A列单元格文本的单元格所在行数

可以使用以下VBA代码来实现你的要求：

Sub FindMatch()

Dim matchSheet As Worksheet
Dim searchSheet As Worksheet
Dim lastRow As Long
Dim searchRange As Range
Dim cell As Range
Dim matchCell As Range
Dim matchRow As Long

Set matchSheet = ThisWorkbook.Sheets("Sheet1")
Set searchSheet = ThisWorkbook.Sheets("Sheet2")
lastRow = matchSheet.Cells(matchSheet.Rows.Count, "A").End(xlUp).Row
Set searchRange = searchSheet.Range("A1:A" & searchSheet.Cells(searchSheet.Rows.Count, "A").End(xlUp).Row)

For Each cell In matchSheet.Range("A1:A" & lastRow)
    Set matchCell = searchRange.Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not matchCell Is Nothing Then
        matchRow = matchCell.Row
        cell.Offset(0, 1).Value = matchRow
    End If
Next cell

End Sub

代码中，首先定义了两个变量，`matchSheet` 和 `searchSheet`，它们分别代表要搜索的表格和包含要匹配的文本的表格。然后获取 `matchSheet` 表格中 A 列的最后一行，以便遍历 A 列中的所有单元格。接下来，将搜索范围设置为 `searchSheet` 表格的 A 列中所有单元格，并遍历 `matchSheet` 表格中的每个单元格。在每个单元格上，使用 `Find` 方法在搜索范围中查找匹配项。如果找到匹配项，则记录该单元格所在行的行数，并将其写入到该单元格的右侧（即 B 列）。

要使用此代码，请打开 VBA 编辑器，在其中插入一个新模块，将代码复制粘贴到模块中，然后保存并关闭编辑器。返回 Excel，运行此宏即可。请注意，此代码假设 Sheet1 中的数据从 A1 单元格开始，Sheet2 中的数据从 A1 单元格开始。如果您的表格结构不同，请相应地更改代码中的行和列号。

excel2010 vba 根据单元格实际行数列数设置格式

在Excel 2010中，可以使用VBA编程语言根据单元格的实际行数和列数来设置格式。下面是一个示例代码：

Sub 格式设置()
    Dim 行数 As Integer
    Dim 列数 As Integer
    
    ' 获取选中单元格的实际行数和列数
    行数 = Selection.Rows.Count
    列数 = Selection.Columns.Count
    
    ' 根据行数设置字体样式
    If 行数 > 1 Then
        Selection.Font.Bold = True
    End If
    
    ' 根据列数设置背景颜色
    If 列数 > 1 Then
        Selection.Interior.Color = RGB(255, 255, 0) ' 设置为黄色
    End If
End Sub

通过上述代码，你可以通过选中单元格来获取其实际行数和列数，并根据这些行数和列数来设置相应的格式。在示例代码中，如果选中单元格的行数大于1，则将文本的字体样式设置为粗体；如果选中单元格的列数大于1，则将单元格的背景颜色设置为黄色。

你可以将上述代码复制到Excel VBA编辑器中，然后在运行时选中相应的单元格进行测试。记得在运行代码之前先选中目标单元格，这样代码才能正确获取其行数和列数，并进行格式设置。