Excel vba for loop

Question

Sub letr()

Dim i As Integer

For i = 3 To 25

    If Cells(i, 7) <> "CA" Then
    Rows(i).Delete
    End If

Next i

End Sub

The above code does not delete all the results(Total 4). i have to run the code twice to delete all the 4 results. Can anyone show me what i did wrong?

Answer 1

You must understand how to use loops effectively in Excel and VBA to get the most out of them.

Loops in VBA allow you to go through a set of objects/values one by one and analyse them. For each loop, you can also conduct particular activities.

Here's a quick example of how to use VBA loops in Excel.

In practise, VBA loops in Excel can help you automate activities in a variety of ways.

Here are a few additional examples of how VBA loops can be helpful:

Iterating over a set of cells and inspecting each one (highlight cells with a specific text in it).
Looping through all of the worksheets and doing something with each one (for example, protecting or unprotecting it).
Go through all of the open workbooks in a loop (and save each workbook or close all except the active workbook).
Iterate over all of the characters in a cell (and extract the numeric part from a string).
All the values in an array are looped through.
Iterate across all of the charts/objects (and give a border or change the background color).