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.
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 Sub3. 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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen