In this article we are going to learn how to use multiple loops in VBA. Two commonly used loops in VBA are the For loop and the For Each loop. We are going to use the For Next Loop first.

Adding command button

To add a command button click on “Insert” and then select “Command Button” from ActiveX group.

Create a command button.

Write click on the command button and Select “View Code”.

Nesting Vba Loops

Write this line of code. After writing the code, close the window by clicking on the red X button on the top left of the screen.

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
For i=1 To 1 to 6
For j=1 To 2
Cells (i, j).Value=100
Next j
Next i
End Sub

Click on the command button to see this result.

This is how to implement two for loops using Excel VBA.

Nesting both For and For Each Loops

Here’s an example of using both loops in a single macro:


Sub MultipleLoops()
Dim i As Integer
Dim j As Integer
Dim cell As Range
For i = 1 To 5 'First loop to iterate through 5 rows
For j = 1 To 3 'Second loop to iterate through 3 columns
'Get the current cell in the current row and column
Set cell = Cells(i, j)
'Add the values of the current cell and the next cell in the same row
cell.Value = cell.Value + Cells(i, j + 1).Value
Next j
Next i
End Sub


In this example, the first loop (For i = 1 to 5) iterates through five rows, while the second loop (For j = 1 to 3) iterates through three columns in each row. The inner loop (For j = 1 to 3) performs an operation on each cell in the current row, and the outer loop (For i = 1 to 5) moves to the next row after the inner loop has completed. This allows the macro to perform the operation on all 15 cells in the range.

Note: In this example, the operation performed on each cell is simple addition, but you can modify the code to perform any operation that you need.

Related posts:

How to Use an Option Button in Excel Vba Code to Sort Data Using Scientific Notation in VBA