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
--
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
"JCG" wrote:

> 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
> --
> Thanks in advance...j

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



JCG wrote:
>
> 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
> --
> Thanks in advance...j

--

Dave Peterson

Select an entire column.

F5>Special>Blanks>OK

Edit>Delete>Entire Row


Gord Dibben MS Excel MVP

On Mon, 17 Dec 2007 08:33:00 -0800, JCG <(E-Mail Removed)> wrote:

>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

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.

--
Suleman Peerzade


"JCG" wrote:

> 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
> --
> Thanks in advance...j