Às vezes, você precisa saber o número de linhas que estão sendo usados ​​em uma planilha do Excel , seja por uma fórmula ou às vezes até mesmo uma macro VBA . Felizmente, existem algumas maneiras fáceis de conseguir isso, e Excel VBA é apenas um deles. A maneira mais simples de descobrir esta informação é para rolar para o fundo da sua planilha e observe o número à direita do último ponto de dados, mas para fazê-lo através do VBA também é bastante simples. Instruções
Programação do
Macro
1

Abra sua planilha Excel e abrir o editor de VBA com a tecla " Alt + F11 ".
2

Comece um novo VBA arquivo do projeto clicando com sua pasta de trabalho no menu do lado direito e escolhendo a opção "Novo".
3

Comece a nova função , digitando " CountRows Sub ( ) . " ; isso informa ao compilador VBA que há uma nova sub-rotina no arquivo de projeto . Se você preferir dar a rotina outro nome, simplesmente mudar " CountRows " para tudo o que você quer dizer , mas deve ter o parêntese aberto e fechado atrás dele , como em " YourName ()" . < Br >
4

Crie uma variável , incluindo "Conte Dim como Long" na próxima linha
5 Tipo

no código a seguir : .

Contagem = 0DoCount = Contagem + 1ActiveCell.Offset (1 , 0). SelectLoop até IsEmpty ( ActiveCell.Offset (0 , 1))

Isto diz o programa compilador para primeiro limpar a variável de Contagem , em seguida, começar a se mover através da planilha . Acrescenta uma para a contagem total , em seguida, move-se para baixo para a próxima célula , enquanto a próxima célula está vazio . Quando atinge uma célula vazia , ele vai parar de correr.
6

Traga uma caixa de mensagem , adicionando uma nova linha com " Contagem MsgBox" nele. Isto irá exibir uma caixa de pop -up com o número total de linhas na mesma. Para fazer com que a caixa de mensagem parece um pouco mais útil , você pode adicionar um pouco mais de texto a ele. Altere a linha para ler o seguinte :

MsgBox " Existem " contar " Linhas"

Você pode mudar o texto entre aspas a maneira que você gostaria que fosse.
7

Finalmente , digite " End Sub " em uma nova linha para fechar a função fora.
Executando o
Macro
8

Volte para sua planilha Excel, e salve-o .
9

Realce a primeira célula da coluna com o maior número de dados. Esta será uma coluna que não tem células vazias entre a parte superior e na parte inferior .
10

Abra o menu " Ferramentas " e selecione "Macros" para abrir a caixa de diálogo macros com todas as macros programadas na planilha .
11

Selecione sua macro capítulo 1, " CountRows " ou seja lá o nome que você deu. Clique em " Executar". Quando concluída, a Macro irá aparecer com o relatório de caixa de mensagem do número de linhas que você preencheu .