Deleting every other row
 

I have a spreadsheet with data in column 1.

every other row is empty, I would like to delete this rows in order to
compact my data.

Thanks.

Select the data range...
select Edit..then Go to..specials or (ctrl G, then special)
select Blanks then click Ok...proceed to delete operation

-----Original Message-----
I have a spreadsheet with data in column 1.

every other row is empty, I would like to delete this
rows in order to
compact my data.

Thanks.
.

Select the data range...
select Edit..then Go to..specials or (ctrl G, then special)
select Blanks then click Ok...proceed to delete operation

-----Original Message-----
I have a spreadsheet with data in column 1.

every other row is empty, I would like to delete this
rows in order to
compact my data.

Thanks.
.

One way:

Public Sub DeleteBlankRows()
On Error Resume Next 'in case no blanks
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Delete
On Error GoTo 0
End Sub


If you're not familiar with macros, see David McRitchie's "Getting
Started with Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In article ,
"Brian" wrote:

I have a spreadsheet with data in column 1.

every other row is empty, I would like to delete this rows in order to
compact my data.

Thanks.

Thanks Rojee, worked well.

"Rojee" wrote:

Select the data range...
select Edit..then Go to..specials or (ctrl G, then special)
select Blanks then click Ok...proceed to delete operation

-----Original Message-----
I have a spreadsheet with data in column 1.

every other row is empty, I would like to delete this
rows in order to
compact my data.

Thanks.
.