Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to add row
I have a file that I will open on a weekly basis. I want it to create a
macro that will insert a blank row in between all rows. The number of rows will vary weekly. Please help. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to add row
This should do you
Sub main() Dim myRow As Long Dim lastCell As Long myRow = 1 'first row to start on lastCell = Cells(Rows.Count, "A").End(xlUp).Row For i = lastCell To myRow Step -1 Cells(i, 1).Select Selection.EntireRow.Insert Shift:=xlDown Next End Sub -- -- -John Please rate when your question is answered to help us and others know what is helpful. "nazzoli" wrote in message ... I have a file that I will open on a weekly basis. I want it to create a macro that will insert a blank row in between all rows. The number of rows will vary weekly. Please help. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to add row
Thanks works great
"John Bundy" wrote: This should do you Sub main() Dim myRow As Long Dim lastCell As Long myRow = 1 'first row to start on lastCell = Cells(Rows.Count, "A").End(xlUp).Row For i = lastCell To myRow Step -1 Cells(i, 1).Select Selection.EntireRow.Insert Shift:=xlDown Next End Sub -- -- -John Please rate when your question is answered to help us and others know what is helpful. "nazzoli" wrote in message ... I have a file that I will open on a weekly basis. I want it to create a macro that will insert a blank row in between all rows. The number of rows will vary weekly. Please help. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to add row
No need to select, inefficient and wasteful
Sub main() Dim myRow As Long Dim lastCell As Long Dim i As Long myRow = 1 'first row to start on lastCell = Cells(Rows.Count, "A").End(xlUp).Row For i = lastCell To myRow Step -1 Rows(i + 1).Insert Next End Sub -- --- HTH Bob (change the xxxx to gmail if mailing direct) "John Bundy" wrote in message ... This should do you Sub main() Dim myRow As Long Dim lastCell As Long myRow = 1 'first row to start on lastCell = Cells(Rows.Count, "A").End(xlUp).Row For i = lastCell To myRow Step -1 Cells(i, 1).Select Selection.EntireRow.Insert Shift:=xlDown Next End Sub -- -- -John Please rate when your question is answered to help us and others know what is helpful. "nazzoli" wrote in message ... I have a file that I will open on a weekly basis. I want it to create a macro that will insert a blank row in between all rows. The number of rows will vary weekly. Please help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error when running cut & paste macro | Excel Worksheet Functions | |||
Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
Closing File Error | Excel Discussion (Misc queries) | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions |