Inserting Rows
I have a spreadsheet with about 1,000 rows of customer contacts. I need to
insert 4 blank rows between each record for more information (End up being 5,000 rows total). Is there a way to do this automatically without having to insert row after row in between each record? |
Inserting Rows
Hi GOL
Try this one Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 4 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 "GOL" wrote in message ... I have a spreadsheet with about 1,000 rows of customer contacts. I need to insert 4 blank rows between each record for more information (End up being 5,000 rows total). Is there a way to do this automatically without having to insert row after row in between each record? |
Inserting Rows
THANKS!!!!!!
"Ron de Bruin" wrote: Hi GOL Try this one Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 4 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 "GOL" wrote in message ... I have a spreadsheet with about 1,000 rows of customer contacts. I need to insert 4 blank rows between each record for more information (End up being 5,000 rows total). Is there a way to do this automatically without having to insert row after row in between each record? |
All times are GMT +1. The time now is 05:40 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com