Como contar as linhas de uma planilha do Excel com macros VBA

Às vezes, é necessário saber o número de linhas que são usadas em uma planilha do Excel, por uma fórmula ou, às vezes, por uma macro VBA. Felizmente, existem algumas maneiras fáceis de conseguir isso, e o Excel VBA é apenas uma delas. A maneira mais fácil de conhecer essas informações é rolar para a parte inferior da planilha e observar o número à direita do último ponto de dados, mas fazer isso através do VBA também é bastante simples.

Programar a macro

Passo 1

Abra a planilha do Excel e abra o editor VBA pressionando “Alt + F11”.

Etapa 2

Inicie um novo arquivo de projeto do VBA, clique no livro no menu à direita e escolha a opção “Novo”.

Etapa 3

Inicie a nova função digitando “CountRows Sub ()”. Isso informa ao compilador do VBA que há uma nova sub-rotina no arquivo do projeto. Se você preferir atribuir outro nome à sub-rotina, basta alterar “CountRows” para o que você quiser dizer, mas você deve ter os parênteses abertos e fechados atrás dela, como em “YourName ()”.

Etapa 4

Crie uma variável incluindo “Count Dim as Long” na seguinte linha.

Etapa 5

Escreva o seguinte código:

Contagem = 0 Contagem = contagem + 1 ActiveCell.Offset (1, 0). Selecione Repetir reprodução até IsEmpty (ActiveCell.Offset (0, 1))

Isso informa ao compilador do programa para excluir primeiro a variável count e começar a percorrer a planilha. Um é adicionado à contagem total e, em seguida, passa para a próxima célula, desde que a próxima célula esteja vazia. Quando ele chega a uma cela vazia, ele para de correr.

Etapa 6

Faça uma caixa de mensagem aparecer adicionando uma nova linha com “Count MsgBox”. Uma caixa pop-up será aberta com o número total de linhas. Para tornar a caixa de mensagem um pouco mais útil, você pode adicionar um pouco mais de texto. Mude a linha para ler da seguinte maneira:

MsgBox “Existem” linhas “de contagem”

Você pode alterar o texto entre aspas da maneira que desejar.

Etapa 7

Por fim, digite “End Sub” em uma nova linha para fechar a função.

Execute a macro

Passo 1

Retorne à planilha do Excel e salve-a.

Etapa 2

Realce a primeira célula da coluna com mais dados. Essa será uma coluna que não possui células vazias entre a parte superior e a inferior.

Etapa 3

Abra o menu “Ferramentas” e selecione “Macros” para exibir macros de diálogo com todas as macros programadas na planilha.

Etapa 4

Selecione a macro na Seção 1, “CountRows” ou qualquer outro nome. Clique em “Executar”. Quando concluída, a macro será aberta com o relatório da caixa de mensagens do número de linhas que você preencheu.

Referências

 

Você pode estar interessado:

Deixe um comentário