Multiple Deletion of every second row

[the mole]

If you have a full spreadsheet with all rows occupied (65,536 rows) is there any quick way of deleting every second row.

 

[jrnyman]

Hit Alt+F11 to access VBA code. Then choose Insert: Module.

Type this code

Sub RemoveEvens()
Range("A65536").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.EntireRow.delete
ActiveCell.Offset(-2,0).Select
Loop
End Sub

This will start with the last row and delete every other row assuming there are no blank cells in Column A.