Re: Split or copy records n-times as excel scans the value of a colum

Sub AAA()
Dim i As Long, Num As Long
i = 1
Do While Cells(i, 1) <> ""
Num = Cells(i, 1)
Cells(i, 1).Offset(1, 0).Resize(Num).EntireRow.Insert
Set rng = Cells(i, 1).Offset(1, 0).Resize(Num)
Cells(i, 1).EntireRow.Copy Destination:=rng
i = i + Num + 1
Loop
End Sub

--
Regards,
Tom Ogilvy

"Loops" <Loops@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:EE838AF0-D20B-4218-87C9-243AC92D70E2@xxxxxxxxxxxxxxxx
> I would like to split or copy record n-times based on n-value on of a row.
> How do you contruct the loop?
>


.