Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert Multiple Blank Rows
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert Multiple Blank Rows
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" wrote: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert Multiple Blank Rows
Thank you so much, TK. It worked perfectly.
"T Kirtley" wrote: 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" wrote: 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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Insert Multiple Blank Rows
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 On Mon, 14 Apr 2008 12:43:00 -0700, CJ wrote: Thank you so much, TK. It worked perfectly. "T Kirtley" wrote: 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" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do i insert blank rows between data that is thousands of rows | Excel Discussion (Misc queries) | |||
insert blank rows | Excel Discussion (Misc queries) | |||
How can I insert a blank row after every four rows in Excel? | Excel Discussion (Misc queries) | |||
How do I insert blank rows between rows in completed worksheet? | Excel Discussion (Misc queries) | |||
How to quickly insert a blank row every 5 rows? | Excel Discussion (Misc queries) |