VBA Row Count

Excel VBA Row Count

In VBA programming referring to rows is most important as well and counting rows is one of the things you must be aware of when it comes to VBA coding. There is a lot of value we can get if we can understand the importance of counting rows which has data in the worksheet. In this article, we will show you how to count rows using VBA coding.

How to Count Rows in VBA?

Example #1

To count rows, we need to make use of RANGE object, in this object, we need to use the ROWS object, and in this, we need to use COUNT property.

For example, look at the below data in excel.

From the above data, we need to identify how many rows are there from the range A1 to A8. So first define the variable as integer to store the number of rows.

Code:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

End Sub

For this variable, we will assign row numbers, so enter the variable name and out the equal sign.

Code:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

No_Of_Rows =

End Sub

We need to provide a range of cells, so open RANGE object and supply the range as “A1:A8”. Code:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1:A8")

End Sub

Once the range is supplied we need to count the number of rows, so choose ROWS property of RANGE object.

In ROWS property of RANGE object we are counting a number of rows, so choose “COUNT” property now.

Now in the message box show the value of the variable.

Code:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1:A8").Rows.Count

MsgBox No_Of_Rows

End Sub

Now run the code and see the count of rows of supplied range of cells.

Ok, there are 8 rows supplied for the range, so rows count is 8 in the message box.

Example #2

We have other ways of counting rows as well, for the above method, we need to supply a range of cells, and in this range cells, it shows the number of rows selected.

But imagine the scenario where we need to find the last used of any column, for example, take the same data as seen above.

To move to the last used cell from cell A1, we press the shortcut excel key “Ctrl + Down Arrow”, so it will take you to the last cell before the empty cell.

First, supply the cell as A1 using the RANGE object.

Code:

Sub Count_Rows_Example2()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1")

MsgBox No_Of_Rows

End Sub

From this cell, we need to move down, and in the worksheet, we use Ctrl + Down Arrow, but in VBA we use END property, choose this property and open bracket to see options.

Look there with END key we can see all the arrow keys like “xlDown, xlToLeft, xlToRight, and xlUp” since we need to move down use “xlDown” option.

Code:

Sub Count_Rows_Example2()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1").End(xlDown)

MsgBox No_Of_Rows

End Sub

This will take you to the last cell before any break, now in the active cell we need the row number, so use ROW property.

Code:

Sub Count_Rows_Example2()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1").End(xlDown).Row

MsgBox No_Of_Rows

End Sub

Ok, done. Now, this will show the last row number, and that will be the count of a number of rows.

So in rows, we have data.

Example #3 – Find Last Used Row

Finding the last used row is so important to decide how many times the loop has to run and also in the above method the last row stops to select if there is any breakpoint cell, so in this method, we can find the last used row without any problems.

Open CELL property.

Code:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(

MsgBox No_Of_Rows

End Sub

Now we need to mention the row number to start with, the problem here is we are not sure how many rows of data we have, so what we can do is we straight away go to the last row of the worksheet, for this mention ROWS.COUNT property.

Code:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count,

MsgBox No_Of_Rows

End Sub

Next, we need to mention in which column we are finding the last used row, so in this case, we are finding in the first column, so mention 1.

Code:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count, 1)

MsgBox No_Of_Rows

End Sub

At this moment, it will take you to the last cell of the first column, from there onwards we need to move upwards to go the last used cell, so use End(xlUp) property.

Code:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count, 1).End(xlUp)

MsgBox No_Of_Rows

End Sub

So this will take you to the last used cell of column 1, and in this cell, we need the row number, so use ROW property to get the row number.

Code:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count, 1).End(xlUp).Row

MsgBox No_Of_Rows

End Sub

Things to Remember

• COUNT will give a number of rows in the worksheet.
• If you have a range, then it will give a number of rows selected in the range.
• ROW property will return the active cell row number.

Recommended Articles

This has been a guide to VBA Row Count. Here we discuss how to count used rows in excel using VBA Coding along with practical examples and downloadable excel template. You may learn more about excel from the following articles-

• VBA Insert Row
• VBA Delete Row
• VBA StatusBar
• VBA Variable Range