Hoe dubbele waarden of overeenkomende waarden in twee kolommen in Excel uitlijnen?

Als je twee lijsten met namen hebt en je wilt deze twee kolommen vergelijken om de duplicaten in beide te vinden, en vervolgens de overeenkomende namen uitlijnen of weergeven op basis van de eerste kolom in een nieuwe kolom, zoals in de onderstaande schermafbeelding. Om de dubbele waarden die in beide kolommen voorkomen weer te geven, introduceert dit artikel enkele trucs om het probleem op te lossen.

Dubbele waarden of overeenkomende waarden in twee kolommen uitlijnen met formule

Dubbele waarden of overeenkomende waarden in twee kolommen uitlijnen met VBA-code

Zoek en markeer de dubbele waarden of overeenkomende waarden in twee kolommen met Kutools voor Excel

Dubbele waarden of overeenkomende waarden in twee kolommen uitlijnen met formule

Hier is een eenvoudige formule die je kan helpen om de dubbele waarden uit twee kolommen weer te geven. Doe het volgende:

Voer deze formule in: =IF(ISNA(MATCH(A2,$C$2:$C$12,0)),'',INDEX($C$2:$C$12,MATCH(A2,$C$2:$C$12,0))) in een lege cel naast je eerste kolom, bijvoorbeeld B2, en sleep vervolgens de vulgreep naar beneden naar de cellen waarop je deze formule wilt toepassen. Alle waarden in zowel kolom A als kolom C zijn nu uitgelijnd met de overeenkomende waarden in kolom A, zie onderstaande schermafbeelding:

Opmerking: In de bovenstaande formule is A2 de eerste celwaarde van de kolom die je wilt vergelijken, en C2:C12 de andere kolomgegevens waarmee je wilt vergelijken. Je kunt de celverwijzingen naar behoefte aanpassen.

Dubbele waarden of overeenkomende waarden in twee kolommen uitlijnen met VBA-code

Stel dat je twee aangrenzende kolommen hebt - kolom E en kolom F - die enkele dubbele namen bevatten. Met de volgende code wordt een nieuwe kolom tussen deze twee kolommen ingevoegd en worden de dubbele waarden weergegeven zoals in de onderstaande schermafbeelding:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Dubbele waarden of overeenkomende waarden in twee kolommen uitlijnen

Sub Listduplicates()
'Updateby Extendoffice 20160613
    Dim rngA As Range
    Set rngA = Range([E1], Cells(Rows.Count, "E").End(xlUp))
    rngA.Offset(0, 1).Columns.Insert
    With rngA.Offset(0, 1)
        .FormulaR1C1 = _
        "=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
        .Value = .Value
    End With
End Sub

Opmerking: In de bovenstaande code is E1 de eerste cel in je eerste te vergelijken kolom, en E geeft de eerste kolombreuk van je gegevens aan. En je twee kolommen moeten aangrenzend zijn.

3. Druk vervolgens op de F5-toets om deze code uit te voeren. Nadat de code is uitgevoerd, wordt er een nieuwe kolom tussen deze twee kolommen ingevoegd en worden de dubbele waarden in beide kolommen uitgelijnd op basis van de eerste overeenkomende waarden.

Zoek en markeer de dubbele waarden of overeenkomende waarden in twee kolommen met Kutools voor Excel

Als je Kutools voor Excel hebt, kun je met de functie Selecteer Dezelfde & Verschillende Cellen snel de gegevens in twee kolommen vergelijken en de dubbele cellen in één kolom selecteren. Bovendien kun je een achtergrondkleur of lettertypekleur toepassen op de duplicaten.

Na het installeren van Kutools voor Excel, doe dan het volgende:

1. Houd de Ctrl-toets ingedrukt om de twee gegevenskolommen afzonderlijk te selecteren, en klik vervolgens op Kutools > Selecteer > Selecteer Dezelfde & Verschillende Cellen, zie onderstaande schermafbeelding:

2. In het dialoogvenster Selecteer Dezelfde & Verschillende Cellen, vink My data has headers aan als je niet wilt dat de kopteksten worden vergeleken, en selecteer vervolgens Per rij onder de sectie Gebaseerd op, en selecteer Zelfde Waarden uit de sectie Zoeken. Tegelijkertijd kun je een achtergrond- of lettertypekleur toepassen op de dubbele waarden onder de sectie Verwerking van geselecteerde resultaten. Zie onderstaande schermafbeelding:

3. Klik vervolgens op de knop OK, en de dubbele waarden in zowel kolom A als kolom B zijn geselecteerd en gemarkeerd in kolom A zoals in de onderstaande schermafbeelding te zien is:

Download en probeer Kutools voor Excel nu gratis!