Add X Rows Between Each List Item

Re: Skip Two Rows In Formula

I can't download your attachment right now but try selecting the first cell with the formula and the two below and then drag down those three cells with the Fill Handle. Does that work?

Re: Skip Two Rows In Formula

Not quite sure if this is what you mean, but if you copy it down once then highlight the first 2 plus 2 blank rows you can then drag down.

ie
A1 1
A2
A3
A4 2

then highlight A1:A6 and drag down.

TJ

Edit: ignore this post as there is no need to do the first copy

Re: Skip Two Rows In Formula

Hi,

Try something like

[vba]Sub Test()
Dim i As Long, j As Long
i = [a65536].End(xlUp).Row
For j = i To 2 Step -1
Rows(j + 1 & ":" & j + 2).Insert
Next j
End Sub[/vba]

Re: Skip Two Rows In Formula

This macro assumes you data starts in A1.

Sub AddRowsBetween()
Dim lLoop As Long


    For lLoop = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        Cells(lLoop, 1).Range("A1:A2").EntireRow.Insert
    Next lLoop


End Sub