U kunt de volgende methoden gebruiken om gegevens in twee Microsoft Excel werkbladkolommen te vergelijken en dubbele vermeldingen te zoeken. 

Methode 1: Een werkbladformule gebruiken

  1. Begin Excel.

  2. Voer in een nieuw werkblad de volgende gegevens in als voorbeeld (kolom B leeg laten):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Typ de volgende formule in cel B1:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Selecteer cel B1 tot en met B5.

  5. In Excel 2007 en latere versies van Excel selecteert u Opvullen in de groep Bewerken en selecteert u vervolgens Omlaag.

    De dubbele getallen worden weergegeven in kolom B, zoals in het volgende voorbeeld: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Methode 2: Een macro Visual Basic gebruiken

Waarschuwing: Microsoft geeft alleen programmeervoorbeelden ter illustratie, zonder garantie, uitgedrukt of impliciet. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgenomen dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en te debuggen. Ondersteuningstechnici van Microsoft kunnen u helpen bij het uitleggen van de functionaliteit van een bepaalde procedure. Deze voorbeelden worden echter niet gewijzigd om extra functionaliteit of constructprocedures te bieden die voldoen aan uw specifieke vereisten.

Als u een macro Visual Basic gegevens in twee kolommen wilt vergelijken, gebruikt u de stappen in het volgende voorbeeld:

  1. Start Excel.

  2. Druk op Alt+F11 om de editor Visual Basic starten.

  3. Selecteer module in het menu Invoegen.

  4. Voer de volgende code in een moduleblad in:

    Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    ' Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
    For Each y In CompareRange
    If x = y Then x.Offset(0, 1) = x
    Next y
    Next x
    End Sub
  5. Druk op Alt+F11 om terug te keren naar Excel.

    1. Voer de volgende gegevens in als voorbeeld (kolom B leeg laten):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Selecteer cel A1 tot en met A5.

  7. In Excel 2007 en latere versies van Excel selecteert u het tabblad Ontwikkelaars en selecteert u macro's in de groep Code.

    Opmerking: Als u het tabblad Ontwikkelaars niet ziet, moet u het mogelijk in- of uit- zetten. Als u dit wilt doen, selecteert u >opties > Lint aanpassenen selecteert u vervolgens het tabblad Ontwikkelaars in het vak Aanpassing aan de rechterkant.

  8. Klik Find_Matchesen klik vervolgens op Uitvoeren.

    De dubbele getallen worden weergegeven in kolom B. De overeenkomende getallen worden naast de eerste kolom gezet, zoals hier wordt geïllustreerd:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Meer hulp nodig?

Uw vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Microsoft insiders

Was deze informatie nuttig?

Hoe tevreden bent u met de vertaalkwaliteit?
Wat heeft uw ervaring beïnvloed?

Bedankt voor uw feedback.

×