# Copy rows n times and then fill a series

Solved/Closed
Gaoyou60 - Dec 7, 2010 at 10:20 AM
Gaoyou60 Posts 2 Registration date Tuesday December 7, 2010 Status Member Last seen December 8, 2010 - Dec 8, 2010 at 08:10 PM
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.

Related:

## 2 responses

```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 Posts 2 Registration date Tuesday December 7, 2010 Status Member Last seen December 8, 2010
Dec 8, 2010 at 08:10 PM
That's what I need. Thanks!