Hello,
this macro will look in column A for the text to be repeated, in column B for the number of repeats per item and will write the output to column C
Sub test()
Dim cel As Range
Dim i As Long, j As Long, LRows As Long
Dim sArr() As String
LRows = WorksheetFunction.Sum(Range("B1", Cells(rows.Count, "B").End(xlUp)))
ReDim sArr(1 To LRows, 0)
j = 1
For Each cel In Range("A1", Cells(rows.Count, "A").End(xlUp))
For i = 1 To cel.Offset(0, 1).Value
sArr(j, 0) = cel.Value
j = j + 1
Next i
Next cel
Range("C1:C" & LRows) = sArr
End Sub
cheers,
Bookmarks