Gegevens uit rijen samenvoegen

[Withaar]

In zoek een formule waarmee ik gegevens kan samenvoegen.
Ik kolom A heb ik personen.
In kolom B rollen
Ik kolom C wil ik graag de naam en de rol(len), bij voorkeur alleen de unieke waarden gescheiden door een komma.
Dus lus door alle personen, lus vervolgens door alle rollen en maak hiervan een combinatie met waarden in één cel.

De bijlage maakt de vraag hopelijk duidelijk(er).

Kan iemand me op weg helpen?

 

[snb]

Mij lijkt een draaitabel hier aangewezen.

 

[Withaar]

Goed idee, vervolgens kan ik hier met wat =ALS wel de waarden weer uit halen.
=ALS(DRAAITABEL.OPHALEN("Rol";$F$35;"Code";$F37;"Rol";H$36)<>"";H$36;"")
Met =F37&","&U37&","&","&V37&","&W37&","&X37&","&Y37&","&Z37&","&AA37&","&AB37&","&AC37&","&AD37&","&AE37
voeg ik alles samen en dan nog even de dubbele ,, vervangen naar enkele.

Gaat helemaal lukken zo.

 

[snb]

Sub M_snb()
   sn = Filter([transpose(A2:A100&"_"&B2:B100)], "")
   
   For j = 2 To UBound(sn)
     c00 = Split(sn(0), "_")(0)
     c01 = c01 & vbLf & c00 & "," & Replace(Join(Filter(sn, c00), ","), c00 & "_", "")
     sn = Filter(sn, c00, 0)
     If sn(0) = "_" Then Exit For
   Next
   
   MsgBox c01
End Sub