vba 如何获取lastrow和firstrow

在 VBA 中，你可以使用以下方法获取最后一行和第一行的行号：

获取最后一行：

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

这个方法会从第一列开始向下查找，直到找到最后一个非空单元格，并返回该单元格所在的行号。

获取第一行：

Dim firstRow As Long
firstRow = ActiveSheet.Cells(1, 1).End(xlDown).Row

这个方法会从第一行开始向下查找，直到找到第一个非空单元格，并返回该单元格所在的行号。

相关问题

vba 如何获取sheet2中第b列的lastrow和firstrow

在 VBA 中，可以使用以下代码获取 Sheet2 中第 B 列的 LastRow 和 FirstRow：

Sub GetLastRowAndFirstRow()
    Dim LastRow As Long
    Dim FirstRow As Long
    
    With ThisWorkbook.Sheets("Sheet2")
        '获取第 B 列的最后一行
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        '获取第 B 列的第一行
        FirstRow = .Range("B1").Row
    End With
    
    Debug.Print "LastRow: " & LastRow
    Debug.Print "FirstRow: " & FirstRow
End Sub

这里使用了 With 语句来引用 Sheet2，这样就不需要每次都输入 `ThisWorkbook.Sheets("Sheet2")`。`.Cells(.Rows.Count, "B").End(xlUp).Row` 用于获取最后一行，`.Range("B1").Row` 用于获取第一行。最后，使用 Debug.Print 来输出结果。

vba 如何获取sheet2中第b列第二行的的lastrow和firstrow

你可以使用以下代码获取Sheet2中B列的第一个和最后一个非空单元格的行号：

Sub GetFirstAndLastRow()
    Dim lastRow As Long
    Dim firstRow As Long
    
    ' 获取Sheet2中B列的最后一行
    lastRow = Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
    
    ' 获取Sheet2中B列的第一个非空单元格所在行
    firstRow = Sheets("Sheet2").Range("B1").End(xlDown).Row
    
    ' 输出结果
    Debug.Print "First Row: " & firstRow
    Debug.Print "Last Row: " & lastRow
End Sub

在这个例子中，我们使用`Range`对象和`Rows.Count`属性获取整个B列的范围，并使用`End(xlUp)`和`End(xlDown)`方法找到最后一个和第一个非空单元格。然后我们可以使用`Row`属性获取它们所在的行号，并将结果输出到调试窗口。