Como encontrar a última linha ou coluna com dados no Excel?
Em uma planilha grande, se você deseja determinar rapidamente e facilmente a última linha ou coluna que contém valores, pode simplesmente rolar a barra de rolagem para encontrá-la. No entanto, isso pode ser complicado se houver milhares de linhas de dados em sua planilha. Neste artigo, vou apresentar alguns códigos VBA úteis para ajudá-lo a resolver essa tarefa.
Encontre a última linha ou coluna com dados usando código VBA
Encontre e selecione a última linha ou coluna com dados com o Kutools para Excel
Encontre a última linha ou coluna com dados usando código VBA
A maioria de nós pode considerar localizar a última célula pressionando as teclas Ctrl +End para encontrar a última linha e coluna, mas o atalho não localizará a célula de valor exata se houver algumas células com formatação abaixo do intervalo de dados. Então, aqui, por favor, use o seguinte código VBA:
1. Ative sua planilha na qual você deseja determinar a última linha ou coluna com dados.
2. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
3. Em seguida, clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Encontrar a última linha com dados
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. E então pressione a tecla F5 para executar este código, e uma caixa de diálogo aparecerá informando o número da linha do intervalo utilizado. Veja a captura de tela:
5. Continue clicando no botão OK, desta vez o número da última linha com valores será exibido conforme mostrado na captura de tela a seguir:
Observação: Para encontrar a última coluna com dados, aplique este código:
Código VBA: Encontrar a última coluna com dados
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Encontre e selecione a última linha ou coluna com dados com o Kutools para Excel
Se você quiser encontrar e selecionar diretamente a última linha ou coluna com dados no Excel, os utilitários Selecionar Última Linha e Selecionar Última Coluna do Kutools para Excel podem ajudá-lo. Por favor, faça o seguinte.
1. Se você deseja encontrar e selecionar a última linha com dados, clique em Kutools > Selecionar > Selecionar Última Célula > Última Linha. Veja a captura de tela:
Observação: Para encontrar e selecionar a última coluna com dados, clique em Kutools > Selecionar > Selecionar Última Célula > Última Coluna.
Então, a última linha ou coluna com dados na planilha atual é encontrada e selecionada imediatamente.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Demonstração: Encontre e selecione a última linha ou coluna com dados com o Kutools para Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins