Copy rows n times and then fill a seriesSolved/Closed

Question

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. 

Configuration: Windows XP / Safari 534.7

RayH · Answer

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

Gaoyou60 · Answer

That's what  I need.   Thanks!

Copy rows n times and then fill a series

2 responses

Similar discussions

Subscribe To Our Newsletter!