I want to delete every alternate row from my work sheet. I tried recording macro, but it only deletes a particular row as shown below (Row 4:4). How can this macro be converted to a more versatile one?
Sub Macro3() Macro3 Macro Keyboard Shortcut: Ctrl+q Rows("4:4").Select Selection.Delete Shift:=xlUp End Sub
Just use the macro below:
Sub deleteAlternateRow() Dim startAtRow, endAtRow, rowCounter As Long startAtRow = 2 endAtRow = 100 For rowCounter = startAtRow To endAtRow Rows(rowCounter).Select Selection.Delete Shift:=xlUp Next End Sub
Thanks to rizvisa1 for this tip on the forum.