waarde cel verdelen

[excelderf]

ik heb in excel de volgende gegevens:
Bekijk bijlage Map1.xlsx

1 taart
2 doos
4 kers
2 druif

nu zou ik het graag zo willen hebben

1 taart
1 doos
1 doos
1 kers
1 kers
1 kers
1 kers
1 druif
1 druif

wie heeft hier een oplossing voor?

alvast bedankt

 

[HSV]

In een standaard module.

Sub hsv()
Dim sq, i As Long, j As Long, n As Long
With Sheets("Blad1")
sq = .Range("A1").CurrentRegion
ReDim arr(UBound(sq) ^ UBound(sq), 2)
     For i = 1 To UBound(sq)
     For j = 1 To sq(i, 1)
                arr(n, 0) = 1
                arr(n, 1) = sq(i, 2)
                        n = n + 1
          Next j
       Next i
   .Range("J1").CurrentRegion.ClearContents
   .Range("J1").Resize(n, 2) = arr
  End With
End Sub

 

[excelderf]

het is helemaal super

bedankt Harry:thumb: