Hoe vergelijkt u twee tekenreeksen op overeenkomst of markeert u de verschillen in Excel?
In sommige gevallen hoeft u slechts twee aangrenzende cellen met tekenreeksen te vergelijken en hun overeenkomsten of verschillen in Excel te markeren. Dit artikel biedt u twee methoden om dit eenvoudig te doen.
Vergelijk twee tekenreeksen met een formule
Vergelijk twee tekenreeksen op overeenkomst of markeer verschillen met VBA-code
Vergelijk twee tekenreeksen met een formule
Zoals in de onderstaande afbeelding te zien is, kunt u de volgende formule gebruiken om eenvoudig te controleren of de vergeleken tekenreeksen overeenkomen.
1. Selecteer een lege cel (bijvoorbeeld C2), typ de formule =EXACT(A2;B2) in de formulebalk en druk op Enter. Zie afbeelding:
Opmerking: In de formule zijn A2 en B2 de cellen die de te vergelijken tekstwaarden bevatten.
2. Houd de resultaatcel geselecteerd en sleep de vulgreep naar de gewenste cellen totdat u alle vergelijkingsresultaten heeft.
Het resultaat ONWAAR betekent dat de vergeleken tekenreeksen verschillen, terwijl WAAR aangeeft dat ze exact overeenkomen. Zie afbeelding:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Vergelijk twee tekenreeksen op overeenkomst of markeer verschillen met VBA-code
Wilt u twee tekenreeksen vergelijken en de overeenkomsten of verschillen ertussen markeren? Dan helpt de volgende VBA-code u daarbij.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de volgende code in het codovenster.
VBA-code: Vergelijk twee kolomtekenreeksen op overeenkomst 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 toets F5 om de code uit te voeren. Selecteer in het eerste Kutools voor Excel-dialoogvenster de eerste kolom met tekenreeksen die u wilt vergelijken en klik op de knop OK.
4. Vervolgens verschijnt het tweede Kutools voor Excel-dialoogvenster. Selecteer de tweede kolom met tekenreeksen en klik op de knop OK.
5. In het laatste Kutools voor Excel-dialoogvenster klikt u op de knop Ja als u de tekenreeksen op overeenkomst wilt vergelijken, of op de knop Nee om de verschillen tussen de vergeleken tekenreeksen te markeren. Zie afbeelding:
Vervolgens ziet u de vergelijkingsresultaten, zoals hieronder weergegeven.
Gerelateerde artikelen:
- Hoe vergelijkt u twee kolommen in Excel en markeert u de afwijkende gegevens?
- Hoe vergelijkt u twee tekenreeksen exact, inclusief hoofdlettergevoeligheid, in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins