Consider only cells that contain data in the form of numbers, text, and formulas : Find « Forms « VBA / Excel / Access / Word






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

Consider only cells that contain data in the form of numbers, text, and formulas

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








Related examples in the same category

1.Uses the Find method to reduce the number of cycles spent in VBA loops:
2.Working with Find and Replace
3.Continuing a Search with the FindNext Method and FindPrevious Method
4.Searching for and Replacing Formatting
5.Finding the Last Used Cell in a Column or Row
6.Ride the Range from the Bottom to Find Last Row
7.Find the First Non-Zero-Length Cell in a Range