Samle rækker med samme navn samt samle forskelligt data

Umiddelbart kan du gøre det med pivot

OBS: vær opmærksom på at ændrede data skrives i kolonne D og E

Sub Samle()
Dim c, r, r2, t, t2
r = Cells(65500, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(65500, 1).End(xlUp)).Copy Cells(1, 4)
For t = 1 To r
If Cells(t, 4) <> "" Then
For t2 = t + 1 To r
If Cells(t, 4) = Cells(t2, 4) Then
Cells(t2, 4) = ""
End If
Next
End If
Next
On Error Resume Next
Range(Cells(1, 4), Cells(65500, 4).End(xlUp)).Select
Selection.Columns.SpecialCells(xlCellTypeBlanks).Rows.Delete Shift:=xlUp
Selection.Sort Key1:=Range(ActiveCell.Address), Order1:=xlAscending

r2 = Cells(65500, 4).End(xlUp).Row

For t = 1 To r2
For j = 1 To r
If Cells(j, 1) = Cells(t, 4) Then Cells(t, 5) = Cells(t, 5) & Cells(j, 2) & " "
Next
Next

ActiveCell.Select
End Sub

Impressive - worked like a charm.

Smid et svar - så får du point.
p.s. Jeg tillod mig at rette lidt i koden så der i stedet for bare et mellemrum imellem de forskellige services også kommer et ; - håber ikke jeg har overtrådt noget copyright :-)

hehe nej det er vist inden for gældende lov :-)