Как подсчитать строки в таблице с помощью vba (с примером)

Вы можете использовать следующий синтаксис для подсчета количества строк в таблице Excel с помощью VBA:

 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