Copy rows n times and then fill a series [Solved/Closed]

Report
-
Posts
2
Registration date
Tuesday December 7, 2010
Status
Member
Last seen
December 8, 2010
-
Hello,

This is variation of a question that has been answered previously. Does anybody know how I can repeat rows in a spreadsheet by n number of times specified in a cell in that row AND then fill a series - so that:



Column A Column B
Peter 3
James 7
David 4


will then produce this table:

Column A Column B Column C
Peter 3 1
Peter 3 2
Peter 3 3
James 7 1
James 7 2
James 7 3
James 7 4
James 7 5
James 7 6
James 7 7
David 4 1
David 4 2
David 4 3
David 4 4

I'd appreciate any help I can get with this.

2 replies

Sub repeat()
Dim n As Integer
Dim counter As Integer

Let n = 1
Let counter = 1
While Cells(n, 1) <> ""
    For x = 1 To Cells(n, 2)
        Cells(counter, 10) = Cells(n, 1)
        Cells(counter, 11) = Cells(n, 2)
        Cells(counter, 12) = x
        Let counter = counter + 1
    Next x
n = n + 1
Wend

End Sub
1
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2837 users have said thank you to us this month

Posts
2
Registration date
Tuesday December 7, 2010
Status
Member
Last seen
December 8, 2010

That's what I need. Thanks!