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.

Demonstração: Encontre e selecione a última linha ou coluna com dados com o Kutools para Excel