Excel - A macro to delete alternate rows

December 2016


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   
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  
    Selection.Delete Shift:=xlUp  
End Sub 

Note that

Thanks to rizvisa1 for this tip on the forum.

Related :

This document entitled « Excel - A macro to delete alternate rows » from CCM (ccm.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.