Copy and insert multipel rows after each row of data

Prev: Convert to hrs:min
Next: Increment Value By 1 Each Time Spreadsheet is Opened

From: myork on 3 Jun 2010 18:36

---

I need to copy a row and insert it 19 times in the rows below it, for 100+
rows.

From: Gord Dibben on 3 Jun 2010 19:26

---

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 <myork(a)discussions.microsoft.com>
wrote:

>I need to copy a row and insert it 19 times in the rows below it, for 100+
>rows.

From: Jacob Skaria on 4 Jun 2010 01:24

---

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.

 | 
Pages: 1
Prev: Convert to hrs:min
Next: Increment Value By 1 Each Time Spreadsheet is Opened