Como contar linhas em uma tabela usando vba (com exemplo)

Você pode usar a seguinte sintaxe para contar o número de linhas em uma tabela no Excel usando 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

Este exemplo específico conta o seguinte número de linhas para a tabela na planilha ativa chamada Table1 :

• Número total de linhas
• Número total de linhas de cabeçalho
• Número total de linhas do corpo

Usamos a função MsgBox para criar uma caixa de mensagem que exibe cada um desses valores em uma única caixa de mensagem.

Nota : Usamos a instrução vbNewLine para inserir novas linhas e criar uma caixa de mensagem com múltiplas linhas.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como contar linhas em uma tabela usando VBA

Suponha que temos a seguinte tabela chamada Tabela1 que contém informações sobre vários jogadores de basquete:

Podemos criar a seguinte macro para contar o número de linhas nesta tabela:

 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 executamos esta macro, recebemos a seguinte saída:

A caixa de mensagem nos informa que há um total de 10 linhas na tabela.

Isso também nos diz que há 1 linha de cabeçalho e 9 linhas de corpo.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como contar valores únicos no intervalo usando VBA
Como contar o número de linhas em um intervalo usando VBA
Como contar células com texto específico usando VBA