Como usar a função counta em vba (com exemplos)

Você pode usar o método CountA em VBA para contar o número de células não vazias em um intervalo específico.

Aqui está uma maneira comum de usar esse método na prática:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

Este exemplo específico conta o número de células não vazias no intervalo A1:A10 e exibe o resultado na célula C1 .

Se, em vez disso, você quiser exibir o número de células que não estão em branco em uma caixa de mensagem, poderá usar a seguinte sintaxe:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

Os exemplos a seguir mostram como usar cada um desses métodos na prática com a seguinte coluna de valores no Excel:

Exemplo 1: contar células que não estejam em branco no intervalo e exibir os resultados na célula

Suponha que queiramos calcular o número de células não vazias no intervalo A1:A10 e exibir os resultados em uma célula específica.

Podemos criar a seguinte macro para fazer isso:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

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

Observe que a célula C1 contém o valor 7 .

Isso nos diz que existem 7 células não vazias no intervalo A1:A10 .

Exemplo 2: conte as células que não estão em branco no intervalo e exiba os resultados na caixa de mensagem

Suponha que, em vez disso, queiramos contar o número de células não vazias no intervalo A1:A10 e exibir os resultados em uma caixa de mensagem.

Podemos criar a seguinte macro para fazer isso:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

A caixa de mensagem nos informa que existem 7 células não vazias no intervalo A1:A10 .

Observe que se você quiser contar o número de células não vazias em uma coluna inteira, poderá digitar A:A .

Isso calculará o número de células não vazias em toda a coluna A.

Nota : Você pode encontrar a documentação completa do método CountA do VBA aqui .

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