Delete Empty Rows

[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

 

[Joel]

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

 

[Dave Peterson]

Maybe you could just select the range and sort it by a key field.

 

[Gord Dibben]

Select an entire column.

F5>Special>Blanks>OK

Edit>Delete>Entire Row


Gord Dibben MS Excel MVP

 

[Suleman Peerzade]

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.