18. juni 2007 - 11:55
Der er
3 kommentarer og
1 løsning
Samle rækker med samme navn samt samle forskelligt data
Hej
Jeg har et ark med en masse kunder. Hver kunde har én linie pr. ting de har købt. Så kolonne A indeholder firmanavn og kolonne B indeholder forskellige ydelser som kunderne modtager.
Kan jeg samle kunderne så de kun har en række og hvor kolonne B så indeholder alt det info som der er på kunden?
eksempel.
Kunde A Ydelse A
Kunde A Ydelse B
Kunde B Ydelse A
Kunde B Ydelse C
Kunde B Ydelse D
Bliver til:
Kunde A Ydelse A, Ydelse B
Kunde B Ydelse A, Ydelse C, Ydelse D
Håber det give mening
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
