Insert Multiple Blank Rows

[CJ]

How do I insert 2 blank rows after each line of data? I have a very large
spreadsheet that I need to format and upload into an accounting application.
The format requires that two blank rows follow each line.

I used the below macro but, it only inserts one row rather then two.

Sub RowInsert()

For X = 2 To 12000
Rows(X).Select
Selection.Insert Shift:=xlDown
X = X + 1
Next X

End Sub

 

[T Kirtley]

CJ,

Try the following modified code:

Sub RowInsert()

For x = 2 To 12000
Rows(x & ":" & x + 1).Select
Selection.Insert Shift:=xlDown
x = x + 2
Next x

End Sub

Hope that helps,

TK

 

[CJ]

Thank you so much, TK. It worked perfectly.

CJ,

Try the following modified code:

Sub RowInsert()

For x = 2 To 12000
Rows(x & ":" & x + 1).Select
Selection.Insert Shift:=xlDown
x = x + 2
Next x

End Sub

Hope that helps,

TK

 

[Gord Dibben]

See a reply at your other post.

Not necessary to use a fixed number of rows...12000.......and those "selects"
just slow down your code.


Gord Dibben MS Excel MVP