Hoe twee tekenreeksen op overeenkomsten te vergelijken of verschillen te markeren in Excel?

In sommige gevallen moet u mogelijk slechts twee aangrenzende cellen met tekenreeksen vergelijken en hun overeenkomsten of verschillen markeren in Excel. Dit artikel biedt u twee methoden om dit te bereiken.

Vergelijk twee tekenreeksen met een formule
Vergelijk twee tekenreeksen op overeenkomsten of markeer verschillen met VBA-code

Vergelijk twee tekenreeksen met een formule

Zoals in de onderstaande schermafbeelding te zien is, als u alleen wilt weten of de vergeleken tekenreeksen overeenkomen of niet, kunt u de volgende formule toepassen.

1. Selecteer een lege cel C2, voer de formule =EXACT(A2, B2) in de Formulebalk in en druk vervolgens op de Enter-toets. Zie schermafbeelding:

Opmerking: In de formule zijn A2 en B2 de cellen die de te vergelijken tekenreeksen bevatten.

2. Houd de resultaatcel geselecteerd en sleep het vulhandvat naar de cellen tot u alle vergeleken resultaten hebt verkregen.

Het ONWAAR-resultaat betekent dat de vergeleken tekenreeksen verschillend zijn, en het WAAR-resultaat geeft aan dat de twee vergeleken tekenreeksen overeenkomen. Zie schermafbeelding:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Vergelijk twee tekenreeksen op overeenkomsten of markeer verschillen met VBA-code

Als u twee tekenreeksen wilt vergelijken en de overeenkomsten of verschillen ertussen wilt markeren, kan de volgende VBA-code u helpen.

1. Druk gelijktijdig op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de volgende code in het Code-venster.

VBA-code: Vergelijk twee kolomtekenreeksen op overeenkomsten of markeer verschillen

Sub highlight()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Font.ColorIndex = xlAutomatic
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value2 = xCell2.Value2 Then
            If Not xDiffs Then xCell2.Font.Color = vbRed
        Else
            xLen = Len(xCell1.Value2)
            For J = 1 To xLen
                If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
            Next J
            If Not xDiffs Then
                If J <= Len(xCell2.Value2) And J > 1 Then
                    xCell2.Characters(1, J - 1).Font.Color = vbRed
                End If
            Else
                If J <= Len(xCell2.Value2) Then
                    xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
                End If
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Druk op de F5-toets om de code uit te voeren. Selecteer in het eerste Kutools voor Excel-dialoogvenster de eerste kolom met tekstreeksen die u wilt vergelijken en klik vervolgens op de OK-knop.

4. Vervolgens verschijnt het tweede Kutools voor Excel-dialoogvenster. Selecteer de tweede kolom met tekenreeksen en klik op de OK-knop.

5. In het laatste Kutools voor Excel-dialoogvenster klikt u op de Ja-knop als u de tekenreeksen op overeenkomsten wilt vergelijken. En om de verschillen van de vergeleken tekenreeksen te markeren, klikt u op de Nee-knop. Zie schermafbeelding:

Vervolgens kunt u de vergeleken resultaten zien zoals in de onderstaande schermafbeelding wordt getoond.

Gerelateerde artikelen:

• Hoe twee kolommen te vergelijken en onovereenkomstige gegevens te markeren in Excel?
• Hoe twee tekenreeksen exact te vergelijken (hoofdlettergevoelig) in Excel?