Duplicate Rows based off list

[stroffso]

I have a list where i have a specific number of rows needed for each object ID. However i cant for the life of me think of a quick way to do it. I know there is a way to do it by transforming but keep running into issues

Table below. Small example below but this goes to 7000 object IDs. The idea would be that I run some code and in column A it would have the Object ID 1 twice, then below it the Object ID2 three times then the object id 3 6 times and so on, does this make sense?

OBJECTID	Rows Needed
1​	2​
2​	3​
3​	6​
4​	2​
5​	2​
6​	3​
7​	3​
8​	3​
9​	3​
10​	3​

Happy to use formulas or code whichever gets the result really, thanks in advance

 

[Akuini]

Try:

Sub dup_row()
Dim i As Long, j As Long, k As Long
Dim va, vb

va = Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
ReDim vb(1 To 500000, 1 To 2) ''I assumed the result won't exceed 500K rows

For i = 1 To UBound(va, 1)
    For j = 1 To va(i, 2)
        k = k + 1
        vb(k, 1) = va(i, 1)
        vb(k, 2) = va(i, 2)
    Next
Next

Range("A2").Resize(k, 2) = vb

End Sub

Result:

Book1
	A	B
1	OBJECTID	Rows Needed
2	1	2
3	1	2
4	2	3
5	2	3
6	2	3
7	3	6
8	3	6
9	3	6
10	3	6
11	3	6
12	3	6
13	4	2
14	4	2
15	5	2
16	5	2
17	6	3
18	6	3
19	6	3
20	7	3
21	7	3
22	7	3
23	8	3
24	8	3
25	8	3
26	9	3
27	9	3
28	9	3
29	1	3
30	1	3
31	1	3
Sheet2

 

[stroffso]

Absolutely perfect that worked exactly as I was looking for, thank you so much

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.