VBA计数包含数据的表行[重复]答案

【问题标题】：VBA Count Table Rows which Contain data [duplicate]VBA计数包含数据的表行[重复]
【发布时间】：2016-04-20 12:17:38
【问题描述】：

从earlier question 继续关注。我正在尝试计算包含数据的表中的行数（不计算属于表的行数）。

例如，我的表是：

我的代码是：

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

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

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

【问题讨论】：

.Cells(.Rows.Count, "A").End(xlUp).Row 父级是工作表，而不是你的表。
使用这一行代替numberRows = .Range("A:A").Cells.Find("*", , , , xlByRows, xlPrevious).Row。如果您想了解更多信息，请参阅HERE

标签： excel vba

【解决方案1】：

试试这个

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

【讨论】：

【解决方案2】：

试试这个excel公式

=COUNTA(Table1[A1])

【讨论】：