07-27-2023, 07:50 AM
Example:
Sub CountRows()
Dim rowCount As Long
rowCount = ActiveSheet.UsedRange.Rows.Count
MsgBox "The number of rows in the worksheet is: " & rowCount & "."
End Sub
Explanation:
This code defines a subroutine named CountRows.
It declares a variable rowCount to hold the count of rows.
The UsedRange property is used to get the range of cells that have data in the active worksheet.
The Rows.Count property gets the number of rows in that range.
The count of rows is then displayed in a message box.
The ActiveSheet object represents the currently active worksheet.
The UsedRange property returns a Range object that represents the used range on the worksheet.
The Rows.Count property returns the number of rows in that range.
Sub CountRows()
Dim rowCount As Long
rowCount = ActiveSheet.UsedRange.Rows.Count
MsgBox "The number of rows in the worksheet is: " & rowCount & "."
End Sub
Explanation:
This code defines a subroutine named CountRows.
It declares a variable rowCount to hold the count of rows.
The UsedRange property is used to get the range of cells that have data in the active worksheet.
The Rows.Count property gets the number of rows in that range.
The count of rows is then displayed in a message box.
The ActiveSheet object represents the currently active worksheet.
The UsedRange property returns a Range object that represents the used range on the worksheet.
The Rows.Count property returns the number of rows in that range.