Gegevens vergelijken en groeperen

[Writtler]

Beste,

Ik het mogelijk om twee kolommen (kolom A en B) met tekst te vergelijken, de dubbele in kolom B te deleten en de overgebleven namen onder elkaar te plaatsen?

zie bijg. simpele voorbeeld, maar maakt misschien de vraag duidelijker.

B.v.d.

 

[Jan van Asseldonk]

Probeer eens met onderstaande macro op je voorbeeldbestandje.
Wellicht kun je daar mee verder.
Er wordt gebruik gemaakt van een hulpcel (D1).
Cellen worden nu verwijderd, als dat niet kan dan met ClearContents leegmaken en aan het einde het gebied in kolom B sorteren, dan zijn de lege cellen er ook tussenuit.

Sub DubbelWeg()
    Range("B1").Select
    While Not IsEmpty(ActiveCell)
        Range("d1").FormulaR1C1 = "=if(isna(VLOOKUP(" & Chr(34) & ActiveCell.Value & Chr(34) & ",RC[-3]:R[16]C[-3],1,0)),0,VLOOKUP(" & Chr(34) & ActiveCell.Value & Chr(34) & ",RC[-3]:R[16]C[-3],1,0))"
        If Range("d1").Value = ActiveCell.Value Then
            ActiveCell.Delete (xlShiftUp)
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Wend
    Range("D1").ClearContents
End Sub

 

[Writtler]

Beste Jan,

Hartelijk bedankt voor de terugkoppeling, werkt perfect!!!

Groetjes,

Writtler