Koppels samenvoegen in excell

[Dieter125]

Ik haal uit mijn lidkaartensysteem lijsten met gegevens.
Bedoeling is die mensen een brief te sturen.
Ik heb in kolom A: de naam
Ik heb in Kolom B: de straat
Ik heb ik kolom C: de stad
In mijn lijst zijn enorm veel koppels die dus samen wonen. Hoe kan ik samenvoegen en toch beide namen behouden?

Bvb:
Lijn 1: KolomA = Hilde - KolomB = kerkstraat 1 - KolomC = 1000 Brussel
Lijn 2: KolomA = Bart - KolomB = kerkstraat 1 - KolomC = 1000 Brussel
Ik zou graag een lijst bekomen met:
Lijn 1: KolomA = Hilde & Bart - KolomB = kerkstraat 1 - KolomC = 1000 Brussel

Spaart mij aardig wat postzegels

Who can help?

 

[HSV]

Zonder koptekst in je ledenlijst zou het zo kunnen.

Sub hsv()
Dim sn, i As Long
Cells(1).CurrentRegion.Sort [b1], , [c1]
sn = Cells(1).CurrentRegion
For i = UBound(sn) To 2 Step -1
 If sn(i, 2) = sn(i - 1, 2) And sn(i, 3) = sn(i - 1, 3) Then
   sn(i - 1, 1) = sn(i - 1, 1) & " & " & sn(i, 1)
   sn(i, 1) = ""
   sn(i, 2) = ""
   sn(i, 3) = ""
 End If
 Next i
Cells(1).CurrentRegion = sn
Range("a1:c" & Cells(Rows.Count, 1).End(xlUp).Row).Sort [b1], , [c1]
End Sub

 

[Dieter125]

Super!!!!! U bespaart mij aardig wat postzegels. Thanks!