Multiple Deletion of every second row

the mole · Apr 25th, 2002, 07:18 AM

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

jrnyman · Apr 25th, 2002, 07:29 AM

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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 25th, 2002, 07:18 AM	#1
the mole New Member Join Date: Apr 2002 Posts: 1	If you have a full spreadsheet with all rows occupied (65,536 rows) is there any quick way of deleting every second row.

Apr 25th, 2002, 07:29 AM	#2
jrnyman Board Regular Join Date: Mar 2002 Location: Boston, MA Posts: 105	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.