所以我目前在excel中工作一个表，我用三列（第1列，第2列和第3列）命名了Table1。 香港专业教育学院一直试图使用VBA计算表中已使用的行或填充的行，但没有运气。
范例1：
UsedRows= Sheets ("Sheet1").ListObjects.("Table1[#Column 1]").UsedRange.ListRows.Count
示例2（此仅返回所有可用行）
UsedRows= Sheets ("Sheet1").ListObjects.("Table1[#Column 1]").ListRows.Count
我想要填充或未填充的行数。 两者中的任何一个都可以正常工作。 请记住，这是一个表，因此End（xlUp）和End（xlDown）的工作方式略有不同。 我也尝试过这些，但是我仍然可以获得可用的总行数或被修改的单元格，这远远超过了可用的行数。
感谢您在高级帖子发布者中的帮助。
听起来您可以使用CountA ，如下所示：
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
如果其他行中没有空白单元格。 3不需要硬编码，这只是表中的列数。
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
