Deleting rows

R

Roger

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
 
R

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


Roger said:
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?
Click to expand...
I have over 1000 entries so doing it row-by-row is time consuming. Thanks.
 
B

bj

You can select all and then use <data><filter><auto
filter> then go to one of the arrows said:
-----Original Message-----
I have a spreadsheet that downloads with a blank row
Click to expand...
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.
 
J

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.
Click to expand...

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
 
K

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 :)
----------------------------------------------------------------------------



Roger said:
I have a spreadsheet that downloads with a blank row between each entry. Is
Click to expand...
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.
 
Top