Copy and insert multipel rows after each row of data

  • Thread starter Thread starter myork
  • Start date Start date
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
 
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
 
Back
Top