inserting Blank Rows

[Clyde Lomax]

Top of the evening,

When a Spreadsheet has a number of rows of data and there are no completely
blank rows but there may be an occasional blank cell, is there a way to
insert a blank row between each of the rows?

Thanks so much for your time and help.

lomax

 

[Ken Wright]

Use the following macro from Dave McRitchie - Select your data, run it and
hey presto, instant alternate blank rows.

Sub InsertAltRowsInSelection()
'David McRitchie, misc 2001-06-30

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual

Dim i As Integer
For i = Selection(Selection.Count).Row To Selection(1).Row + 1 Step -1
Rows(i).Insert
Next i

Application.Calculation = xlCalculationAutomatic 'pre XL97 xlAutomatic
Application.ScreenUpdating = True

End Sub

 

[Clyde Lomax]

Ken,
As usual it works like a charm. This has to be one of the best groups. I
get a lot of info here and it is one of the few places that is really really
helpful.
I really appreciate the help.

Thanks lomax

 

[Ken Wright]

Hi Clyde - appreciate the feedback, thanks. I have to agree wrt to the group -
I've trawled a good number of them, and have yet to come across anywhere else
that comes near the level of teamwork and geniality that I have found in here.