selectively deleting cells

[Guest]

I would like to selectively delete alternate rows on an excel worksheet containing a long list of data. i.e. deleting rows/cells A3,A5,A7,A9,A11....A30573 etc. How do i do this quickly without having to use CTRL + select for each specific cell/row?

 

[Chip Pearson]

Del,

It isn't clear what you mean by "selectively" delete the rows. If
you just want to delete every other row, use code like

Sub DeleteEveryOtherRow()
Dim RowNdx As Long
Application.ScreenUpdating = False
For RowNdx = 30573 To 3 Step -2
Rows(RowNdx).Delete
Next RowNdx
Application.ScreenUpdating = True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

I would like to selectively delete alternate rows on an excel

worksheet containing a long list of data. i.e. deleting
rows/cells A3,A5,A7,A9,A11....A30573 etc. How do i do this
quickly without having to use CTRL + select for each specific
cell/row?