Existem várias situações onde precisamos determinar qual é a última Linha de uma planilha na qual estamos implementando alguma automação. Ter uma função pronta para uso é sempre uma mão na roda. Claro, existem diversas formas de se fazer isso.
Function FindingLastRow (nSheet As String, nColumnAnalyse As String) As Long
' © 2007-20 A&A - In Any Place®, except where noted, all rights reserved.
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT
' LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' Feel free to use the code as you wish but kindly keep this header section intact.
' Copyright© A&A - In Any Place®, all Rights Reserved. ' Author: André Bernardes
' Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
' Description: Different ways to find the last row number of a range
' SOURCE: www.TheSpreadsheetGuru.com
Dim sht As Worksheet
Dim LastRow As Long
Set sht = ThisWorkbook.Worksheets(nSheet)
' Ctrl + Shift + End
'Let LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
' Using UsedRange
'sht.UsedRange 'Refresh UsedRange
'Let LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
'Using Table Range
'Let LastRow = sht.ListObjects("Table1").Range.Rows.Count
'Using Named Range
'Let LastRow = sht.Range("MyNamedRange").Rows.Count
'Ctrl + Shift + Down (Range should be first cell in data set)
'Let LastRow = sht.Range("D1").CurrentRegion.Rows.Count
' Retorna a última Linha da principal coluna.
Let LastRow = Sheets(nSheet).Range(nColumnAnalyse & Rows.Count).End(xlUp).Row
Let FindingLastRow = LastRow
End Function
⬛◼◾▪ CONTATO ▪◾◼⬛
