# 计算 Excel 表中填充了 VBA 数据的行

#### Counting Excel Table Rows that are populated with data on VBA

``````UsedRows= Sheets ("Sheet1").ListObjects.("Table1[#Column 1]").UsedRange.ListRows.Count
``````

``````UsedRows= Sheets ("Sheet1").ListObjects.("Table1[#Column 1]").ListRows.Count
``````

2 个回复

``````Dim myColumn As ListColumn
Set myColumn = Sheets("Sheet1").ListObjects("Table1").ListColumns("Column 1")

Dim UsedRows As Long
UsedRows = Application.CountA(myColumn.DataBodyRange)
Debug.Print UsedRows
``````

``````Sub x()

Dim r As Range

Set r = ActiveSheet.ListObjects(1).DataBodyRange

With WorksheetFunction
MsgBox .CountBlank(r) / 3                  'empty rows
MsgBox (r.Rows.Count - .CountBlank(r) / 3) 'non-empty rows
End With

End Sub
``````
1 在VBA Excel中计算行数

2013-08-28 13:10:17 1 917   vba
2 计算行数（数据透视表 VBA）

3 VBA：计算表中的行（列表对象）

2015-04-15 00:07:05 3 72052   vba/ excel
4 子集数据表/计数行

5 VBA Excel; Rows.Count不计算所有行

2013-05-29 17:44:57 1 5797   vba/ excel
6 计算 Excel 中表中的非空行

2020-04-24 05:17:38 0 48   vba
7 Excel VBA的数据表？

2015-01-25 15:17:11 1 3236   vba/ excel
8 VBA EXCEL 创建一个包含所有填充单元格的数据透视表

10 将数据隐藏在行中-Excel VBA