À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.