Deleting every other row with VBA

[Sarah]

All,

Can anyone assist me with the VBA code that will allow me to delete
every other row (they are blank) beginning with 1 to a defined last
row?

Thanks!
Sarah

 

[Ron de Bruin]

Hi Sarah

Try this one for the selection

Sub DeleteEveryOtherRow()
'Chip Pearson
Dim RowNdx As Long
For RowNdx = Selection.Cells(Selection.Cells.Count).Row _
To Selection(1, 1).Row Step -2
Rows(RowNdx).Delete
Next RowNdx
End Sub

 

[Greg Koppel]

Hi Sarah,

It wrks better if you start at the bottom and work up. Try modifying this
code for your use

Sub DeleteRows()
Range("A65536").End(xlUp).Offset(-1, 0).Select
Do Until ActiveCell.Row = 2
Selection.EntireRow.Delete
ActiveCell.Offset(-2, 0).Select
Loop
End Sub

HTH, Greg

 

[Tom Ogilvy]

This will work with either an even or odd number of rows (didn't try to
figure out which), but not both. Try changing =2 to <=2

 

[Bob Phillips]

Don't select, it is so wasteful

Sub DeleteRows()
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
Do Until Cells(i,"A").Row = Activecell.Row
Cells(i-1,"A").EntireRow.Delete
i = i - 2
Loop
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)