Create Column Containing a value x number of times, repeat with different values

[alex0182828]

Hi All,

Sorry for the terrible explanation. What i am trying to do is very simple but i am really having trouble describing the answer is most likely in this forum or google but i can not unearth it.

I have made a screenshot showing what i am trying to achieve as its way easier to show that to explain. Any help would be great.

Basically i need the values in Column A in a list with each occurring in the list the number of times given in column B. Its so i can print of labels in specific quantities.

Any help would be great. Thanks. Alex

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("B" & i).Value > 0 Then Range("D" & Rows.Count).End(xlUp).Offset(1).Resize(Range("B" & i).Value).Value = Range("A" & i).Value
Next i
End Sub