Excel - Inserting rows automatically.

Asked By Ms. Olive on 08-Jul-08 11:14 AM
I have a worksheet that has over 300 entries in almost every row (no skips).

I need to insert 3 empty rows in b/w each filled row.  Is there anyway to do
so?

Ex:   row 1
row 2
row 3

I want:

row 1


row 2


row 3

I have 3 spreadsheets to change, one is done and it took FOREVER due to
having to manually enter 3 rows in b/w every filled row (that one had almost
400).

I have Excel 2003.

Help!

Work Email: jorobb@EXCOResources.com




Don Guillett replied on 08-Jul-08 11:27 AM
A tad quicker.

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).row To 2 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
Lars-Åke Aspelin replied on 08-Jul-08 11:35 AM
On Tue, 8 Jul 2008 08:14:06 -0700, Ms. Oliver <Ms.




Try this macro:

Sub insert_3_blank_rows()
Range("A65536").End(xlUp).Select
Do While Selection.Row > 1
Selection.EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Offset(-1, 0).Select
Loop
End Sub


Hope this helps / Lars-Åke