Code Explanation

[billandrew]

The code below inserts a row between data which is <> identical to the preceding cell in column A.

What I am unsure of is the lastrow to 3. In particular 3. Could someone provide explanation and or can this be observed line by line.

Thank You

Still learning

Sub insertRows()


Dim i As Integer
lastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row


For i = lastRow To 3 Step -1

If Range("A" & i).Value <> Range("A" & i - 1) Then
Rows(i).Resize(1).Insert

End If

Next




End Sub

 

[Logit]

.
If you mean ... can you see it function one line at a time ...

Sub insertRows()


Dim i As Integer
lastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row


For i = lastRow To 3 Step -1


If Range("A" & i).Value <> Range("A" & i - 1) Then
Rows(i).Resize(1).Insert


End If

MsgBox ""


Next
End Sub

This line :

For i = lastRow To 3 Step -1

causes the macro to start at the "lastRow" (last used row in Col A), go up the rows, one row at a time (Step - 1) until it reaches row #3 (To 3).

 

[billandrew]

Thank you.

Is there an option to view in intermediate window or watch wibdow.

 

[Logit]

.
Go to the VBE, place your cursor at the beginning of the macro code, press F8. Will execute macro one line at a time.

 

[billandrew]

sorry for late response..

Thank You for your help

 

[Logit]

You are welcome.