MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Deleting Rows


Posted by Don on October 22, 2001 12:53 PM

Does anyone have a macro that will select a range and delete every 3rd row.

Thanks


Posted by EDDIE G on October 22, 2001 1:00 PM

This will delete every third row starting from cell A1 as long as there is data in the column


Sub rowdeleter()
Range("A1").Select 'starting point
Do While Selection <> ""
Selection.EntireRow.ClearContents
Selection.Offset(3, 0).Select
Loop
Range("A3").Select

End Sub