Counting rows in Excel 1

[Dan01]

Hi, How does one count the number of rows populated with data in Excel. Can one use a VBA loop? Thanks, Dan.

 

[dsi]

If there are no holes in your data, this code will return the rows on the active sheet.

Public Sub FindLastRow()
    Dim iRow As Long
    iRow = 1    'row that data starts
    Do While Len(Range("A" & iRow).Text) > 0
        iRow = iRow + 1
    Loop
    iRow = iRow - 1
    MsgBox iRow & " Rows of Data"
End Sub

 

[Dan01]

That looks good DSI. Thanks a bunch. Dan.

 

[JustinEzequiel]

Alternatively, you can try

MsgBox ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count

 

[dsi]

Thanks Justin! Much easier.

 

[Dan01]

Pretty cool Justin. Thanks! Dan.