Deleting empty rows (special case)

A

Ali

Hi everybody,

I have 63000 rows in which I wanna delete even OR odd rows. I know for small
data how to delete rows but for this huge number of rows what is the easiest
way?
many thanks.
Ali
 
D

Don Guillett

one way

Sub Macro1()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
Rows(i).Delete
'or hide
'Cells(i, 1).EntireRow.Hidden = True
Next
End Sub
 
Top