Delete Empty Rows

  • Thread starter Thread starter JCG
  • Start date Start date
J

JCG

Greetings:

I have an excel spreadsheet consisting of 58,000 rows. Every other row is
empty and I would like to delete the empty rows.

Is there an easy way to do this...thanks in advance...j
 
Sub removerows()

LastRow = Range("A" & Rows.Count).End(xlUp).Row
For RowCount = (LastRow - 1) To 1 Step -2
Rows(RowCount).Delete
Next RowCount

End Sub
 
Select an entire column.

F5>Special>Blanks>OK

Edit>Delete>Entire Row


Gord Dibben MS Excel MVP
 
Hi,
Try this
1. Select the entire data
2. In the menu bar/Data/Sort
3. In the sort wizard you may type the order in which you desire to sort
your data. For eg. Name
4. The sort wizard will sort the data for you and there is no need of
deleting the blank rows you can further sort this data as per your
requirement.
 
Back
Top