Як підрахувати рядки в таблиці за допомогою 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