Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Insert Rows between the existing rows
Hi,
I have requirements for inserting a blank row in-between existing rows. So I have let say 300 rows with data and I want to insert a blank row after each exisitng data row. Is there anything available in Excel? or I have no option but to manually inserting each row. Please help!!! Thank you |
#2
|
|||
|
|||
Hi Pradeep
Try this macro Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 1 Set rng = ActiveSheet.UsedRange For R = rng.Rows.Count To 1 Step -1 rng.Rows(R + 1).Resize(numRows).EntireRow.insert Next R Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Pradeep Patel" wrote in message ... Hi, I have requirements for inserting a blank row in-between existing rows. So I have let say 300 rows with data and I want to insert a blank row after each exisitng data row. Is there anything available in Excel? or I have no option but to manually inserting each row. Please help!!! Thank you |
#3
|
|||
|
|||
Do you really need the blanks rows?
If so, go with Ron's solution. If just for appearance, select all rows and double the height. Gord Dibben Excel MVP On Sat, 8 Oct 2005 04:29:03 -0700, "Pradeep Patel" wrote: Hi, I have requirements for inserting a blank row in-between existing rows. So I have let say 300 rows with data and I want to insert a blank row after each exisitng data row. Is there anything available in Excel? or I have no option but to manually inserting each row. Please help!!! Thank you |
#4
|
|||
|
|||
Ron,
Yes, your macro works. I appreciate your quick help. Thank you very much. Pradeep "Ron de Bruin" wrote: Hi Pradeep Try this macro Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 1 Set rng = ActiveSheet.UsedRange For R = rng.Rows.Count To 1 Step -1 rng.Rows(R + 1).Resize(numRows).EntireRow.insert Next R Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Pradeep Patel" wrote in message ... Hi, I have requirements for inserting a blank row in-between existing rows. So I have let say 300 rows with data and I want to insert a blank row after each exisitng data row. Is there anything available in Excel? or I have no option but to manually inserting each row. Please help!!! Thank you |
#5
|
|||
|
|||
Thank you Gord, Ron's Macro is working fine.
"Gord Dibben" wrote: Do you really need the blanks rows? If so, go with Ron's solution. If just for appearance, select all rows and double the height. Gord Dibben Excel MVP On Sat, 8 Oct 2005 04:29:03 -0700, "Pradeep Patel" wrote: Hi, I have requirements for inserting a blank row in-between existing rows. So I have let say 300 rows with data and I want to insert a blank row after each exisitng data row. Is there anything available in Excel? or I have no option but to manually inserting each row. Please help!!! Thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert rows based on specific value | Excel Worksheet Functions | |||
Can inserted rows automatically include existing worksheet formula | Excel Discussion (Misc queries) | |||
Same formula in each cell of column; insert rows w/o copying down | Excel Discussion (Misc queries) | |||
Insert rows | Excel Worksheet Functions | |||
Challenging Charting | Charts and Charting in Excel |