Answers for "excel vba find get last rowin column"


excel vba find get last rowin column

'VBA to get the last row in column A that has a value.

'Change `A` to the column you care about:
With Sheet1
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

'A shorter way:
LastRow = Sheet1.[A1048576].End(xlUp).Row

'And to get the row of the last cell with a value
'just above the FIRST blank cell VERTICALLY:
LastRow = Sheet1.[A1].End(xlDown).Row


'The most reliable way to get the last row with data 
'for the entire sheet is to use the following function: 

LastRow = LastUsedRow(Sheet1.[A1])

Function LastUsedRow(r As Range)
    On Error Resume Next
    r.Parent.AutoFilterMode = False
    With r.Cells.Find("*", r, xlFormulas, , , xlPrevious)
        LastUsedRow = 1
        LastUsedRow = .Row
    End With
End Function
Posted by: Guest on March-26-2020

Code answers related to "VBA"

Browse Popular Code Answers by Language