Comparing cells in column loop

[Sweedler]

Hello

I have a spreadsheet where one column contains the just a few different values, but repeated multiple times. I have filtered that column alphabetically as a part of a vba macro, but I need to add a line break when the value in the column changes, thereby separating the groups of different values in that column. In my case it is column L, starting on line 6 and down to line 100.

Help please

 

[Herakles]

Hello

I have a spreadsheet where one column contains the just a few different values, but repeated multiple times. I have filtered that column alphabetically as a part of a vba macro, but I need to add a line break when the value in the column changes, thereby separating the groups of different values in that column. In my case it is column L, starting on line 6 and down to line 100.

Help please

Try this on a copy of your data.

It works on the active worksheet.

Private Sub subComparingCellsInColumnLoop()
Dim i As Integer

    For i = 100 To 6 Step -1
        If Cells(i, 12).Value <> Cells(i - 1, 12).Value Then
            Cells(i, 12).EntireRow.Insert
        End If
    Next i

    MsgBox "Rows inserted.", vbOKOnly, "Confirmation"

End Sub

 

[Sweedler]

Thank you

Worked like a charm