Evo nešto sam nekada radio pa pogledaj može li ti pomoći.
Ova makronaredba kopira tekst onoliko puta koliko ima komada artikla a rezultat je na sheet2.
Code:
Sub KopirajUmnozi()
Dim i As Integer
Dim j As Integer
Sheet1.[A1].CurrentRegion.Copy Sheet2.[A1]
With Sheet2
For i = .Range("A65536").End(xlUp).Row To 2 Step -1
j = .Cells(i, 3).Value - 2
.Rows(i & ":" & i).Copy
.Rows(i & ":" & i + j).Offset(1).Insert Shift:=xlDown
Next
End With
Application.CutCopyMode = False
End Sub
Pokrenu makronaredbu i pogledaj Sheet2
Probaj iskombinirati nešto za svoj problem ili potraži nekoga da ti ga preradi.