如何使用 vba 计算表中的行数（附示例）

您可以使用以下语法来使用 VBA 计算 Excel 表格中的行数：

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

此特定示例计算活动工作表上名为Table1的表的以下行数：

• 总行数
• 标题行总数
• 身体线条总数

我们使用MsgBox函数创建一个消息框，在单个消息框中显示这些值中的每一个。

注意：我们使用vbNewLine语句插入新行并创建多行消息框。

以下示例展示了如何在实践中使用此语法。

示例：如何使用 VBA 计算表中的行数

假设我们有一个名为Table1的表，其中包含有关各个篮球运动员的信息：

我们可以创建以下宏来计算该表中的行数：

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

当我们运行这个宏时，我们会收到以下输出：

消息框告诉我们表中共有10行。

这也告诉我们有1 个标题行和9 个正文行。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何使用VBA计算范围内的唯一值
如何使用 VBA 计算某个范围内的行数
如何使用 VBA 对包含特定文本的单元格进行计数