Finding the last row in Excel

• • Reply

  18 years ago

  by Nigorr

  Nicholas Orr

  Brisbane, Australia, Australia

  Joined 19 years ago

  i have this loop running and it finds the last row. It is pretty slow is there a quicker way to find the last row with something in it.
  

  Code:

  
     'Variables used for finding out last row in worksheet.
     Dim blnContinue As Boolean
         
     'Finds out the last row in worksheet.
  '--Start Last Row--'
  

  
     'Set initial values
     blnContinue = False
     gintStartRow = 1
     
     'Code for finding last row
     Do While blnContinue <> True
         frmProgress.UpdateStatus
         If Worksheets("Isamastr").Cells.Range("A" & gintStartRow).value <> "" Then
             gintStartRow = gintStartRow + 1
         Else
             gintLastRow = gintStartRow - 1
             blnContinue = True
         End If
     Loop
  '--End Last Row--'
  

  Report abuse
• • Reply

  18 years ago

  by Gravitycure

  gravitycure

  England, United Kingdom

  Joined 19 years ago

  The following bit of code will find the last cell with something in it in the column below cell A1.
  

  
  Range("A1").End(xlDown).Select
  

  
  Works in Excel 2000, so you'll have to try it in Excel 97 to see if it works.

  Report abuse
• • Reply

  18 years ago

  by Nigorr

  Nicholas Orr

  Brisbane, Australia, Australia

  Joined 19 years ago

  K thanks I'll give it a go.

  Report abuse