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!