Macro To Insert Blank Row?

R

rtidrtid

anyone a dab hand at Excel? I need a had creating a macro. What i hav
is a column with numbers, for example

12222
12222
21111
21111
13333
13333

what i need is a macro which will insert a blank row after an identica
sequence of numbers, turning the above into

12222
12222

21111
21111

13333
13333


any ideas
 
D

Don Guillett

try this. the key is working from the bottom up instead of the top down.

Sub insertrowifnotminusonerow()
lr = Cells(Rows.Count, "c").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i - 1, "c") <> Cells(i, "c") Then Rows(i).Insert
Next i
End Sub
 
Top