Insert Row Every Other

[ROBIN]

I need to insert a row in between every other row. I
tried to build a macro, but it specifies row#...there's
got to be an easy way to do this...right?

 

[upstate_steve]

See 'this recent post' (http://www.excelforum.com/t214184-s) for
similar problem.

You just have to reverse it by bringing the data into a range of th
same width as your original range and twice the # of rows.

To the right of your first row of data, on a single row, select a rang
with the same number of columns as your original range.

Enter as an array formula

=IF(MOD(ROW(),2)>0,"",OFFSET($A$1,ROW()/2-1,0,1,-width-))

where -width- is the number of columns in your original range.

Drag down

 

[Don Guillett]

try this where you have 4 items in col D
Sub insert1row()
For i = 4 To 2 Step -1
Cells(i, "d").Rows.Insert
Next i
End Sub

Here is one I posted just today to insert 10 rows.

You might like this. The 3 is d3 and the 2 is d2 since you dont want 10 rows
before 1.

Sub insert10rows()
For i = 3 To 2 Step -1
Cells(i, "d").Resize(10, 1).EntireRow.Insert
Next i
End Sub

 

[Gord Dibben]

Robin

Sub InsertALTrows()
'David McRitchie, misc 2001-06-30
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Integer
For i = Selection(Selection.Count).Row To Selection(1).Row + 1 Step -1
Rows(i).EntireRow.Insert
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Gord Dibben Excel MVP

 

[Dave Peterson]

Could you just double the rowheight?

I've found empty rows mess up my tables for filtering, pivottables, charts, ....