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

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

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

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

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