存在数据的行数

Question

我是学习VBA的新手,并且想知道是否有人可以帮助我使用我需要的代码来计算我在其中包含数据的总行数.我希望能够在具有不同数据行数量的多个工作表上使用它.

更具体地说,我无法弄清楚将计算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仍将成为那个值.

Answer 2

假设您Sheet1不必活跃，则需要使用以下改进的代码：

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

Range(arg1, arg2)在这种情况下，请查看完整的工作表参考以获取第二个参数。