Finding the Last Used Cell in a Column or Row : Find « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. Find

Finding the Last Used Cell in a Column or Row

 
Function GetLastCellInColumn(rg As Range) As Range 
    Dim lMaxRows As Long 
    lMaxRows = ThisWorkbook.Worksheets(1).Rows.Count 
    If IsEmpty(rg.Parent.Cells(lMaxRows, rg.Column)) Then 
        Set GetLastCellInColumn = _ 
            rg.Parent.Cells(lMaxRows, rg.Column).End(xlUp) 
    Else 
        Set GetLastCellInColumn = rg.Parent.Cells(lMaxRows, rg.Column) 
    End If 
End Function








Related examples in the same category

1.Consider only cells that contain data in the form of numbers, text, and formulas
2.Uses the Find method to reduce the number of cycles spent in VBA loops:
3.Working with Find and Replace
4.Continuing a Search with the FindNext Method and FindPrevious Method
5.Searching for and Replacing Formatting
6.Ride the Range from the Bottom to Find Last Row
7.Find the First Non-Zero-Length Cell in a Range