Inserting rows automatically.

[Ms. Oliver]

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: (e-mail address removed)

 

[Don Guillett]

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

 

[Lars-Åke Aspelin]

On Tue, 8 Jul 2008 08:14:06 -0700, Ms. Oliver <Ms.

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: (e-mail address removed)

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