Cells.Find: Get Real Last Cell : Cells « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Cells

Cells.Find: Get Real Last Cell

 
Public Sub GetRealLastCell()
  Dim realastRow As Long
  Dim realastColumn As Long
  Range("A1").Select
 
  On Error Resume Next
  realastRow = Cells.Find("*", Range("A1"),xlFormulas, , xlByRows, xlPrevious).Row
  realastColumn = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
  Cells(realastRow, realastColumn).Select
End Sub








Related examples in the same category

1.Select entire sheet
2.Set cell value with For Loop
3.Use row and column index to reference cell
4.Cells(Rows.Count, "A").End(xlUp).Select
5.looping through a worksheet range using a For/Next loop.
6.Get cell value
7.Sum Cells Based on the Interior Color
8.Entering a value in the next empty cell
9.Use the AutoFill function by specifying the destination range
10.Using Replace Programmatically to Set the Correct Range
11.Calling CurrentRegion to Inspect a List's Useful Characteristics