excel - 数据存在的行数

Question

我需要计算有数据的总行数。我希望能够在具有不同数据行数量的多张纸上使用它。

我无法找出通用代码来计算行数A1-A100 或 A1-A300。

我正在尝试使用这样的东西。

i = ActiveWorkbook.Worksheets("Sheet1").Range("A2 , Range("A2").End(xlDown)).Rows.Count

Answer 1

如果您需要 VBA，您可以像这样快速执行操作:

Sub Test()
    With ActiveSheet
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    MsgBox lastRow
    End With
End Sub

这将打印最后一行包含数据的行号。如果您将 MsgBox 用于其他目的，显然不需要在那里，但 lastRow 仍然会成为该值。