Deleting every other row

[Brian]

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.

 

[Rojee]

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

 

[Rojee]

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

 

[JE McGimpsey]

One way:

Public Sub DeleteBlankRows()
On Error Resume Next 'in case no blanks
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.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

 

[Brian]

Thanks Rojee, worked well.

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