Vba: como contar o número de colunas usadas

Você pode usar a seguinte sintaxe básica para contar o número de colunas usadas em uma planilha Excel usando VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Este exemplo específico conta o número de colunas usadas na planilha chamada Sheet1 e exibe o resultado na célula A10 .

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
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 informações sobre vários jogadores de basquete:

Exemplo 1: conte as colunas usadas no VBA e exiba os resultados na célula

Suponha que queiramos contar o número de colunas usadas e exibir os resultados em uma célula específica.

Podemos criar a seguinte macro para fazer isso:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

Observe que a célula A10 contém o valor 4 .

Isso nos diz que existem 4 colunas usadas.

Exemplo 2: contar colunas usadas em VBA e exibir resultados em caixa de mensagem

Suponha que, em vez disso, queiramos contar o número de colunas usadas e exibir os resultados em uma caixa de mensagem.

Podemos criar a seguinte macro para fazer isso:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

A caixa de mensagem nos informa que existem 4 colunas usadas.

Nota : Se houver colunas vazias seguidas de colunas contendo dados, o VBA contará as colunas vazias como “usadas” no cálculo.

Recursos adicionais

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

VBA: Como contar o número de planilhas em uma pasta de trabalho
VBA: Como contar o número de linhas no intervalo
VBA: Como contar células com texto específico