当上方和下方的单元格不同时插入行

Question

How would you insert a row if, in the specified column the row above and below are different. For example:
A1 : Hello
A2 : Hello
A3 : Goodbye
You would want to insert a row under row 2 and move 3 down.

Thanks!

Answer 1

Sub insert()
    dim lastrow as long, i as long
    With ActiveSheet
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    For i = lastrow To 2 Step -1
        If Not Cells(i, 1) = Cells(i - 1, 1) Then
            Rows(i).insert shift:=xlShiftDown
        End If
    Next i
End Sub