Deleting all but one blank row
 

I have a file created by another program that inserts six blank rows after
each row of data. The exported format is Excel 8.0 Extended (whatever that
means). I found several really helpful suggestions how to delete all of the
blankrows. The one to use the Go To Special command seems to be the easiest.
Unfortunately, I want to keep one blank row as a divder between each data
row. Any suggestions?
--
I know enuff to be dangerous.

Deleting all but one blank row
 

You're not able to add a row under "insert"?

"RealGomer" wrote:

I have a file created by another program that inserts six blank rows after
each row of data. The exported format is Excel 8.0 Extended (whatever that
means). I found several really helpful suggestions how to delete all of the
blankrows. The one to use the Go To Special command seems to be the easiest.
Unfortunately, I want to keep one blank row as a divder between each data
row. Any suggestions?
--
I know enuff to be dangerous.

Deleting all but one blank row
 

How about deleting all the blanks, then add a row back.

In fact, if this is just for appearance, you could select all teh used rows and
just double the rowheight.

This makes sorting/filtering/pivottables/charting much easier.

But...

Option Explicit
Sub testme()
Dim iRow As Long
Dim LastRow As Long
Dim FirstRow As Long
Dim wks As Worksheet

Set wks = Worksheets("Sheet1")

With wks
FirstRow = 1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For iRow = LastRow To FirstRow + 1 Step -1
.Rows(iRow).Insert
Next iRow
End With
End Sub



RealGomer wrote:

I have a file created by another program that inserts six blank rows after
each row of data. The exported format is Excel 8.0 Extended (whatever that
means). I found several really helpful suggestions how to delete all of the
blankrows. The one to use the Go To Special command seems to be the easiest.
Unfortunately, I want to keep one blank row as a divder between each data
row. Any suggestions?
--
I know enuff to be dangerous.

--

Dave Peterson