Jak policzyć wiersze w tabeli za pomocą vba (z przykładem)

Aby policzyć liczbę wierszy w tabeli w programie Excel przy użyciu języka VBA, możesz użyć następującej składni:

 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

W tym konkretnym przykładzie zliczana jest następująca liczba wierszy tabeli w aktywnym arkuszu o nazwie Table1 :

• Całkowita liczba linii
• Całkowita liczba linii nagłówka
• Całkowita liczba linii ciała

Używamy funkcji MsgBox do stworzenia okna komunikatu, które wyświetla każdą z tych wartości w jednym oknie komunikatu.

Uwaga : Używamy instrukcji vbNewLine do wstawiania nowych linii i tworzenia okna komunikatu z wieloma liniami.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak policzyć wiersze w tabeli za pomocą VBA

Załóżmy, że mamy następującą tabelę o nazwie Tabela 1 , która zawiera informacje o różnych koszykarzach:

Możemy utworzyć następujące makro, aby policzyć liczbę wierszy w tej tabeli:

 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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Okno komunikatu informuje nas, że w tabeli znajduje się łącznie 10 wierszy.

To również mówi nam, że istnieje 1 wiersz nagłówka i 9 wierszy treści.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak policzyć unikalne wartości w zakresie za pomocą VBA
Jak policzyć liczbę wierszy w zakresie za pomocą VBA
Jak policzyć komórki z określonym tekstem za pomocą VBA