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.

You are free to use this image on your website, templates etc, Please provide us with an attribution linkHow to Provide Attribution?Article Link to be Hyperlinked
For eg:
Source: VBA Row Count (wallstreetmojo.com)

How to Count Rows in VBA?

Example #1

To count rowsCount RowsThere are numerous ways to count rows in Excel using the appropriate formula, whether they are data rows, empty rows, or rows containing numerical/text values. Depending on the circumstance, you can use the COUNTA, COUNT, COUNTBLANK, or COUNTIF functions.read more, 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 objectRANGE ObjectRange is a property in VBA that helps specify a particular cell, a range of cells, a row, a column, or a three-dimensional range. In the context of the Excel worksheet, the VBA range object includes a single cell or multiple cells spread across various rows and columns.read more 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 keyShortcut Excel KeyAn Excel shortcut is a technique of performing a manual task in a quicker way.read more “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 propertyEND PropertyEnd is a VBA statement that can be used in a variety of ways in VBA applications. Anywhere in the code, a simple End statement can be used to instantly end the execution of the code. In procedures, the end statement is used to end a subprocedure or any loop function, such as 'End if'.read more, 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 cellActive CellThe active cell is the currently selected cell in a worksheet. Active cell in VBA can be used as a reference to move to another cell or change the properties of the same active cell or the cell's reference provided from the active cell.read more 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 numberLast Row NumberThe End(XLDown) method is the most commonly used method in VBA to find the last row, but there are other methods, such as finding the last value in VBA using the find function (XLDown).read more, 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 propertyCELL PropertyCells are cells of the worksheet, and in VBA, when we refer to cells as a range property, we refer to the same cells. In VBA concepts, cells are also the same, no different from normal excel cells.read more.

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