Como encontrar a última linha ou coluna com dados no Excel?
Em uma planilha grande, se você deseja determinar a última linha ou coluna que contém os valores de forma rápida e fácil, basta arrastar a barra de rolagem para localizá-la. Mas será doloroso se houver milhares de linhas de dados em sua planilha. Neste artigo, falarei sobre alguns códigos VBA úteis para você resolver essa tarefa.
Encontre a última linha ou coluna com dados usando o 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 o código VBA
A maioria de nós pode considerar a localização da última célula pressionando Ctrl + End para localizar a última linha e coluna, mas a tecla de atalho não localizará a célula de valor preciso se houver algumas células com formatação abaixo do intervalo de dados. Então, aqui, use o seguinte código VBA:
1. Ative sua planilha em que deseja determinar a última linha ou coluna com dados.
2. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
3. Então clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: encontre 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, em seguida, pressione F5 para executar este código e uma caixa de prompt aparecerá para informar o número da linha do intervalo usado. Veja a imagem:
5. Continue clicando OK botão, desta vez o número da última linha com os valores foi exibido conforme a seguinte captura de tela mostrada:
Observação: Para encontrar a última coluna com dados, aplique este código:
Código VBA: encontre 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ê deseja localizar e selecionar diretamente a última linha ou coluna com dados no Excel, o Selecione a última linha e os votos de Selecione a última coluna utilitários de Kutools do Excel pode te ajudar. Faça o seguinte.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Se você deseja localizar e selecionar a última linha com dados, clique em Kutools > Selecionar > Selecione a última célula > Última fila. Veja a imagem:
Note: Para localizar e selecionar a última coluna com dados, clique em Kutools > Selecionar > Selecione a última célula > Última Coluna.
Então a última linha ou coluna com dados na planilha atual é encontrada e selecionada imediatamente.
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Encontre e selecione a última linha ou coluna com dados com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!