Aantal x dat een tabelwaarde naar losse cellen Excel

[M4rtinB]

Hoe kan ik het aantal keer dat speciafieke waardes in een tabel voorkomen, als aparte cellen weergeven?


Dus bijv tabel

waarde aantal

x 2

y 3

z 4
...

Naar

x

x

y

y

y

z

z

z

z


Relevante software en hardware die ik gebruik
.Excel

Wat ik al gevonden of geprobeerd heb
Zoeken op MS site, andere fora.

[dix-neuf]

Als de gegevens in de kolommen A en B staan van Blad1, beginnend in rij 2, krijg je na uitvoeren van onderstaande macro in kolom D het resultaat.

Sub macro1()
Dim at As Integer, bt As Integer
With Sheets("Blad1")
.Columns("d").ClearContents
bt = 2: at = 2
Do Until at > .Cells(.Rows.Count, 1).End(xlUp).Row
If Not (IsEmpty(.Cells(at, 1))) Then
.Range(.Cells(bt, 4), .Cells(bt + .Cells(at, 2) - 1, 4)) = .Cells(at, 1)
End If
bt = bt + .Cells(at, 2) + 1: at = at + 1
Loop
End With
End Sub

[M4rtinB]

Top bedankt!!

[dixet]

Of zonder VBA, met een (beetje complexe) Excelfunctie:

code:

=X.ZOEKEN(REEKS(SOM(B1:B3));SCAN(0;B1:B3;LAMBDA(a;b;a+b));A1:A3;;1)

Wat dit doet:

code:

REEKS(SOM(B1:B3))

maakt een reeks getallen van 1 t/m het totaal aantal letters dat je wilt (1 t/m 9 in dit geval)

code:

SCAN(0;B1:B3;LAMBDA(a;b;a+b))

maakt een matrix van de posities waarop een nieuwe letter moet beginnen (2; 5 en 9)

code:

X.ZOEKEN(;;A1:A3;;1)

zoekt voor elk getal de eerstvolgende waarde die er gelijk aan of groter is (de laatste parameter, 1, zorgt ervoor dat je de eerste waarde zoekt gelijk aan of groter dan het te zoeken getal).