Excelvba中获取行数

在Excel VBA中，你可以使用`Range.Rows.Count`属性来获取某个特定区域（如一整个工作表、选定范围或单个工作表的某部分）内的行数。例如，如果你想获取A1到Sheet1的最后一个单元格所在的行数，可以这样做：

Dim lastRow As Long
lastRow = Range("A1").CurrentRegion.Rows.Count ' 如果A1是包含数据的区域的起始位置

MsgBox "Sheet1的行数为：" & lastRow

如果你只想获取当前活动工作表的总行数，可以直接使用`ActiveSheet.Rows.Count`。

如果你想要获取特定列的最后一条非空值所在的行，可以用`Find`函数配合`End`函数，例如查找F列的最后一行非空值：

Dim rng As Range
Set rng = Sheets("Sheet1").Columns(6).Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
If Not rng Is Nothing Then
    Dim lastNonEmptyRow As Long
    lastNonEmptyRow = rng.Row - 1 ' 减1是因为Find返回的是下一行的引用
End If