Tempo de leitura: menos de 1 minuto
Manipular tabelas utilizando o VBA no Excel, sem sobra de dúvidas é uma tarefa desafiadora, portanto, localizar a ultima linha com dados em uma tabela automaticamente é imprescindível para o sucesso de processo. Mas em qual situação isso é importante? Geralmente temos localizar a ultima linha quando queremos inserir um novo registro na tabela. Portanto, seguem algumas maneiras que utlizo para localizar a última linha.
Sub EncontrarUltimaLinha()
Dim sht As Worksheet
Dim UltimaLinha As Long
Set sht = ThisWorkbook.Worksheets(Plan1.Name)
'Opçao 1 - Utlizando o 'Ctrl + Shift + End do Teclado
UltimaLinha = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
'Opçao 2 - Utilizando o método UsedRange
UltimaLinha = sht.UsedRange.Rows.Count
'Opçao 3 - Utilizando o método ListObjects em um tntervalo configurado como tabela
UltimaLinha = sht.ListObjects("Tabela1").Range.Rows.Count
'Opçao 4 - Encontrando a ultima linha utlizando o intervalo configurado com Gerenciamento de Nomes
UltimaLinha = sht.Range("MeuIntervalo").Rows.Count
'Opçao 5 - - Utlizando o 'Ctrl + Shift + Down do Teclado
UltimaLinha = sht.Range("A1").CurrentRegion.Rows.Count
End Sub
Pratiquem!
