If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Copy and insert multipel rows after each row of data
I need to copy a row and insert it 19 times in the rows below it, for 100+
rows. |
#2
|
|||
|
|||
Copy and insert multipel rows after each row of data
You have 100+ rows.
One column or many columns of data? Each row is to be duplicated 19 times for a total of 1900+ rows when complete? You want to do this manually or by code? Gord Dibben MS Excel MVP On Thu, 3 Jun 2010 15:36:44 -0700, myork wrote: I need to copy a row and insert it 19 times in the rows below it, for 100+ rows. |
#3
|
|||
|
|||
Copy and insert multipel rows after each row of data
Try the below macro..
Sub MyMacro() Dim lngRow As Long lngRow = 1 Do While Range("A" & lngRow) "" Rows(lngRow).Offset(1).Resize(19).Insert Rows(lngRow).Copy Rows(lngRow + 1 & ":" & lngRow + 19) lngRow = lngRow + 20 Loop End Sub -- Jacob (MVP - Excel) "myork" wrote: I need to copy a row and insert it 19 times in the rows below it, for 100+ rows. |
Thread Tools | |
Display Modes | |
|
|