Deleting empty rows (special case)

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Delete empty rows 1
Excel 2002: Any button to insert blank rows at specific interval? 5
Delete extra empty rows 2
delete rows between tow inputs numbers 3
Having Blank Cells, etc. ? 1
Delete only Filetered rows in excel 2007 not hidden rows or header 0
Cannot remove empty rows 8
Excel Add rows automatically in excel 3

Back
Top