包含数据的VBA计数表行

Question

从earlier question继续。我试图计算表中包含数据的行数（不计算表中一部分的行数）。

例如，我的表是：

我的代码是：

With ThisWorkbook.Worksheets(1)
    Set ATB = .ListObjects("Table1")
    .Activate
    numberRows = .Cells(.Rows.Count, "A").End(xlUp).Row
End With`

这会返回错误的数字（相信我，A列的数据计数相同）

同样，我想使用VBA很好地调整表的大小，但需要这个行计数。

Answer 1

试试这个

Sub check()
    With ThisWorkbook.Worksheets("Sheet1")
        Set ATB = .ListObjects("Table1")
        .Activate
        numberRows = Application.CountA(.Range("A:A"))
    End With
End Sub

Answer 2

试试这个excel公式

=COUNTA(Table1[A1])