Delete every 3rd row

K

kotlon

Can this be done quickly? For example you have 300 rows and you wanna
delete 1,4,7,10 etc...?
 
D

Don Guillett

a backwards looping macro something like

Sub deleteeverythridrow()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
Rows(i).Delete
Next i

End Sub
 
N

Nikki

if you don't mind sorting:
what if in a column X you type:
1
2
3
copy and paste it to the end, and then sort by the column, you can then
delete all rows with 3 in column x.
 
K

kotlon

Don Guillett, yes I have tried your solution and it worked, but I coul
not understand the logic behind the script and when I need to delet
every 2+3+4th row for example I am unable to. Thank yo
 
Top