VBA 确认B列最大行数

在VBA（Visual Basic for Applications）中，要确认Excel工作表中B列的最大行数，通常可以通过查找最后一行非空单元格的方式来实现。这里有几种方法可以完成这个任务：

1. 使用`End(xlUp)`方法：这是一种快速查找最后一行的方法，它会从B列的最后一行向上搜索，直到找到第一个非空单元格。例如：

Sub FindLastRow()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    MsgBox "B列的最后一行是：" & lastRow
End Sub

这段代码会在消息框中显示B列的最后一行。

2. 使用`UsedRange`属性：如果你的列中没有空白行（即空白单元格都位于列的末尾），你可以使用`UsedRange`属性来获取最后一个非空单元格的位置。例如：

Sub FindLastRowWithUsedRange()
    Dim lastRow As Long
    lastRow = ActiveSheet.UsedRange.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox "最后一个非空单元格的行数是：" & lastRow
End Sub

这段代码会显示最后一个非空单元格的行数。

3. 使用循环遍历：如果你需要更精细的控制，或者需要考虑到列中间可能存在的空白行，你可以编写一个循环来遍历列中的每一行，直到找到最后一个非空单元格。例如：

Sub FindLastRowWithLoop()
    Dim lastRow As Long
    Dim cell As Range
    For Each cell In Range("B1:B" & Rows.Count)
        If IsEmpty(cell.Value) Then Exit For
        lastRow = cell.Row
    Next cell
    MsgBox "B列的最后一行是：" & lastRow
End Sub

这段代码同样会在消息框中显示B列的最后一行。

需要注意的是，上述代码假设B列从第一行开始就有数据。如果B列的起始数据行不是第一行，你可能需要调整范围的起始点，例如使用`Range("B2:B" & Rows.Count)`。