Function KomBiner(rng As Range, tal As Range, Optional tegn As String)
For Each c In rng
If tal <> "" And c = tal Then KomBiner = KomBiner & c.Offset(0, -1) & tegn
Next
End Function
Indsæt ovenstående funktion i et almindeligt modul
Hvis du har en unik liste med gruppetal i fx D2:D20 skal du indsætte
følgende formel i E2 og kopiere ned
=KomBiner($B$2:$B$20;D2)
Hvis du ønsker et tegn til at adskille værdierne fx / så :
=KomBiner($B$2:$B$20;D2;"/")