Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Blank rows between items
How can I quickly insert 3 blank rows between a list of many items? For
example, I have the following list of items in cells a1 thru a5 and I want to quickly insert 3 blank rows between each item, without having to do each one at a time: John James Joe Nancy Steve Thanks for the help. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Blank rows between items
Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1 Rows(i).Resize(3).Insert Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... How can I quickly insert 3 blank rows between a list of many items? For example, I have the following list of items in cells a1 thru a5 and I want to quickly insert 3 blank rows between each item, without having to do each one at a time: John James Joe Nancy Steve Thanks for the help. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Blank rows between items
Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a
macro? "Don Guillett" wrote: Sub insert3rows() For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1 Rows(i).Resize(3).Insert Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... How can I quickly insert 3 blank rows between a list of many items? For example, I have the following list of items in cells a1 thru a5 and I want to quickly insert 3 blank rows between each item, without having to do each one at a time: John James Joe Nancy Steve Thanks for the help. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Blank rows between items
Disregard my last post. I tried this as a Macro and it worked perfectly.
Thanks Mr. Guillett! "JB" wrote: Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a macro? "Don Guillett" wrote: Sub insert3rows() For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1 Rows(i).Resize(3).Insert Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... How can I quickly insert 3 blank rows between a list of many items? For example, I have the following list of items in cells a1 thru a5 and I want to quickly insert 3 blank rows between each item, without having to do each one at a time: John James Joe Nancy Steve Thanks for the help. |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Blank rows between items
Thanks Don. I'll do that. Here's another quick question: Every time I run
my new Macro you gave me, the Macro records what it's doing and changes itself so that when I go to run it again, it adds 6 blank rows. How do I get it to stop changing itself? "Don Guillett" wrote: Glad to help If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... Disregard my last post. I tried this as a Macro and it worked perfectly. Thanks Mr. Guillett! "JB" wrote: Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a macro? "Don Guillett" wrote: Sub insert3rows() For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1 Rows(i).Resize(3).Insert Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... How can I quickly insert 3 blank rows between a list of many items? For example, I have the following list of items in cells a1 thru a5 and I want to quickly insert 3 blank rows between each item, without having to do each one at a time: John James Joe Nancy Steve Thanks for the help. |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Blank rows between items
The macro is not/can not change itself. It is doing what was asked. It was designed to run once to add the desired rows. If you are saying that you want it to add blank rows only if there is not a blank row then it would have to be re-written. -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... Thanks Don. I'll do that. Here's another quick question: Every time I run my new Macro you gave me, the Macro records what it's doing and changes itself so that when I go to run it again, it adds 6 blank rows. How do I get it to stop changing itself? "Don Guillett" wrote: Glad to help If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... Disregard my last post. I tried this as a Macro and it worked perfectly. Thanks Mr. Guillett! "JB" wrote: Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a macro? "Don Guillett" wrote: Sub insert3rows() For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1 Rows(i).Resize(3).Insert Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "JB" wrote in message ... How can I quickly insert 3 blank rows between a list of many items? For example, I have the following list of items in cells a1 thru a5 and I want to quickly insert 3 blank rows between each item, without having to do each one at a time: John James Joe Nancy Steve Thanks for the help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inserting alternate blank rows in Excel | Excel Discussion (Misc queries) | |||
Macro Help- Inserting Blank Rows | Excel Discussion (Misc queries) | |||
Inserting blank rows in Excel. | Excel Discussion (Misc queries) | |||
Inserting Blank rows after every row upto 2500 rows | Excel Worksheet Functions | |||
Inserting Blank Rows Macro? | Excel Worksheet Functions |