Come contare le righe in una tabella utilizzando vba (con esempio)

È possibile utilizzare la seguente sintassi per contare il numero di righe in una tabella in Excel utilizzando 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

Questo particolare esempio conta il seguente numero di righe per la tabella sul foglio attivo chiamato Tabella1 :

• Numero totale di righe
• Numero totale di righe di intestazione
• Numero totale di linee del corpo

Utilizziamo la funzione MsgBox per creare una finestra di messaggio che visualizzi ciascuno di questi valori in un’unica finestra di messaggio.

Nota : utilizziamo l’istruzione vbNewLine per inserire nuove righe e creare una finestra di messaggio con più righe.

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: come contare le righe in una tabella utilizzando VBA

Supponiamo di avere la seguente tabella denominata Tabella1 che contiene informazioni su vari giocatori di basket:

Possiamo creare la seguente macro per contare il numero di righe in questa tabella:

 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

Quando eseguiamo questa macro, riceviamo il seguente output:

La finestra di messaggio ci informa che nella tabella sono presenti 10 righe in totale.

Questo ci dice anche che c’è 1 riga di intestazione e 9 righe di corpo.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come contare valori univoci nell’intervallo utilizzando VBA
Come contare il numero di righe in un intervallo utilizzando VBA
Come contare le celle con testo specifico utilizzando VBA