delete entire blank row between filled rows

[grafidi]

I have a file in excel contains 1200 records and there one or two line blank between each one. does any body know how to delete these blank line in excel 2000?

 

[Zathras]

If this is a one-time thing, just sort the data and the blank rows will fall to the bottom.

 

[Loomah]

if it's not a one off or sorting isn't appropriate (for whatever reason) then this'll do it

Sub it()
Dim lRow As Long
For lRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If WorksheetFunction.CountA(Rows(lRow).Cells) = 0 Then
        Rows(lRow).EntireRow.Delete
    End If
Next
End Sub

;-)

If a man says something and there are no women there to hear him, is he still wrong?