Vba: como contar o número de linhas no intervalo

Você pode usar a seguinte sintaxe básica para contar o número de linhas em um intervalo no Excel usando VBA:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Este exemplo específico conta o número de linhas na coluna A e atribui o resultado à célula E2 .

Se você quiser exibir o número de linhas em uma caixa de mensagem, poderá usar a seguinte sintaxe:

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Os exemplos a seguir mostram como usar cada um desses métodos na prática com o seguinte conjunto de dados no Excel que contém os nomes de jogadores de basquete de três times diferentes:

Exemplo 1: contar linhas no intervalo usando VBA e exibir resultados na célula

Suponha que queiramos calcular o número de linhas na coluna A e exibir os resultados em uma célula específica.

Podemos criar a seguinte macro para fazer isso:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que a célula E2 contém o valor 9 .

Isso nos diz que existem 9 linhas na coluna A com valores.

Exemplo 2: contar linhas no intervalo usando VBA e exibir resultados na caixa de mensagem

Suponha que, em vez disso, queiramos contar o número de linhas na coluna A e exibir os resultados em uma caixa de mensagem.

Podemos criar a seguinte macro para fazer isso:

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A caixa de mensagem nos informa que existem 9 linhas na coluna A com valores.

Observe que neste exemplo calculamos o número de linhas em toda a coluna A usando A:A como intervalo.

No entanto, se você quiser calcular o número de linhas com valores em um intervalo específico, poderá digitar A2:A9 (ou qualquer outro intervalo de seu interesse).

Recursos adicionais

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

VBA: Como escrever funções AVERAGEIF e AVERAGEIFS
VBA: Como escrever funções SUMIF e SUMIFS
VBA: Como escrever funções COUNTIF e COUNTIFS