Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '
- Dim iRow As Integer, iCol As Integer
- Dim oRng As Range
- Set oRng = Range("a1")
- iRow = oRng.Row
- iCol = oRng.Column
- Do
- '
- If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
- Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
- iRow = iRow + 2
- Else
- iRow = iRow + 1
- End If
- '
- Loop While Not Cells(iRow, iCol).Text = ""
- '
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement