Deleting rows

[Guest]

I have a spreadsheet that downloads with a blank row between each entry. Is there a way to get rid of the additional blank rows? I have over 1000 entries so doing it row-by-row is time consuming. Thanks

Roger

 

[Ron de Bruin]

Hi Roger

Try this macro for the selection
If you don't want a macro solution post back

Sub DeleteEveryOtherRow()
'Chip Pearson
Dim RowNdx As Long
For RowNdx = Selection.Cells(Selection.Cells.Count).Row _
To Selection(1, 1).Row Step -2
Rows(RowNdx).Delete
Next RowNdx
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl

I have a spreadsheet that downloads with a blank row between each entry. Is there a way to get rid of the additional blank rows?

I have over 1000 entries so doing it row-by-row is time consuming. Thanks.

 

[bj]

You can select all and then use <data><filter><auto

-----Original Message-----
I have a spreadsheet that downloads with a blank row

between each entry. Is there a way to get rid of the
additional blank rows? I have over 1000 entries so doing
it row-by-row is time consuming. Thanks.

 

[Jordon]

I have a spreadsheet that downloads with a blank row between each entry.
Is there a way to get rid of the additional blank rows? I have over 1000 entries
so doing it row-by-row is time consuming. Thanks.

If original sort order is needed, insert a new column A and
number it from 1
to the end of your list. Sort on the first column where data is
entered. That
will leave all the blank rows at the bottom. Delete the blank
rows containing the
newly inserted numbers. Resort the remaining list on the inserted
numbers.

Jordon

 

[Ken Wright]

Select any column that will definitely have data in the cells you want to keep,
then do Edit / Go To / Special / Blanks, then do Edit / Delete / Entire Row.

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission
----------------------------------------------------------------------------

I have a spreadsheet that downloads with a blank row between each entry. Is

there a way to get rid of the additional blank rows? I have over 1000 entries
so doing it row-by-row is time consuming. Thanks.