Insert row after every two rows

DRJ

MrExcel MVP

Joined

Feb 17, 2002

Messages

3,853

• Sep 19, 2003

• #2

Try this

Modify as needed

Sub InsertIT()

x = 4 'Start Row

Do

Range("A" & x).Insert
x = x + 3

Loop While x < 1000 'change for more inserted rows

End Sub

 

Upvote 0

Y

Yogi Anand

MrExcel MVP

Joined

Mar 12, 2002

Messages

11,454

• Sep 19, 2003

• #3

Hi Jillbeirne:

The following macro will insert a row every secod row -- that is it will insert a row above row4, then row6, then row8, and so on till row16 ...

Code:

Sub yTest01()
    For i = 4 To 16 Step 2
        Cells(i, 1).EntireRow.Insert
    Next i
End Sub

Is this what you are looking for? If your requirements are different, please post back and then let us take it from there.

 

Upvote 0

J

Jillbeirne

New Member

Joined

Sep 17, 2003

Messages

7

• Sep 21, 2003

• #4

Thanks for the help! DRJ, was wondering how to insert rows instead of just insert cells after every two; its seems only to be inserting breaks in column A! Thanks so much,

-Jill

 

Upvote 0

Y

Yogi Anand

MrExcel MVP

Joined

Mar 12, 2002

Messages

11,454

• Sep 21, 2003

• #5

Hi Jill:

Try the following ...

Code:

Sub yTest01()
    j = 0
    For i = 4 To 16 Step 2
        j = j + 1
        Cells(i + j, 1).EntireRow.Insert
    Next i
End Sub

The above macro will insert a row starting with the 5th row and then insert another row after every two rows. Please post back if it works for you now -- or explain a little further and then let us take it from there.

 

Upvote 0

C

CartoonGal

New Member

Joined

Sep 21, 2003

Messages

9

• Sep 21, 2003

• #6

YOGI thank you so much!


this macro did exactly what i wanted it to do!

Genius genius genius!

-Jill

 

Upvote 0

L

luramen

New Member

Joined

Mar 26, 2010

Messages

23

• Nov 5, 2015

• #7

Hi,

I ran into this old threat and it is something I need a lit bit of help. I'm looking to insert a row after every two roads for the entire sheet. When I run the macro it inserts the rows until row 22. How can I modify it to insert a row after every other two for the entire data?

Thanks in advance - LM

 

Upvote 0

L

luramen

New Member

Joined

Mar 26, 2010

Messages

23

• Nov 5, 2015

• #8

Never mind- I adjusted it.

You gotta love it!!

 

Upvote 0