Hoe kan ik deze gegevens transponeren?

[Erik1965]

In bijgaand bestand wil ik data transponeren; ik heb het al getraht op te lossen m.b.v. formules es duplicaten verwijderen, echter worden dan niet de juiste duplicaten verwijderd. Ws is de gevraagde oplossing vrij simpel, maar het lukt me niet om te transponeren Zie bijgaand bestand

 

[Timshel]

Voeg een nieuw werkblad "Blad2" in en draai deze macro:

Sub tsh()
    Dim Br
    Dim i As Long
    
    Br = Sheets("Blad1").Cells(1).CurrentRegion
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(Br)
            .Item(Br(i, 1)) = .Item(Br(i, 1)) & Br(i, 2) & "|"
        Next
        Sheets("Blad2").Cells(1, 1).Resize(.Count, 2) = Application.Transpose(Array(.Keys, Filter(.Items, "")))
        Sheets("Blad2").Columns(2).TextToColumns , xlDelimited, , , , , , , 1, "|"
    End With
End Sub

 

[AlexCEL]

Hier nog een optie met formules, heeft weer eigen voor- en nadelen... bekijk maar eens.