Hoe twee strings te vergelijken voor gelijkenis of verschillen in Excel te markeren?
In sommige gevallen hoeft u slechts twee aangrenzende cellen met strings te vergelijken en hun overeenkomsten of verschillen in Excel te markeren. Dit artikel biedt u twee methoden om dit te bereiken.
Vergelijk twee strings met formule
Vergelijk twee strings voor gelijkenis of markeer verschillen met VBA-code
Vergelijk twee strings met formule
Zoals onderstaand screenshot laat zien, kunt u de volgende formule toepassen als u alleen wilt weten of de vergeleken tekenreeksen overeenkomen of niet.
1. Selecteer een lege cel C2, voer de formule in = EXACT (A2; B2) in de formulebalk en druk vervolgens op Enter. Zie screenshot:
Note: In de formule zijn A2 en B2 de cellen die de vergelijkende strings bevatten.
2. Blijf de resultaatcel selecteren en sleep vervolgens de vulhendel naar de cellen totdat alle vergeleken resultaten zijn weergegeven.
Het resultaat FALSE betekent dat de vergeleken strings verschillend zijn, en het resultaat TRUE geeft aan dat de twee vergeleken strings overeenkomen. Zie screenshot:
Vergelijk twee strings voor gelijkenis of markeer verschillen met VBA-code
Als u twee strings wilt vergelijken en de overeenkomsten of verschillen ertussen wilt benadrukken. De volgende VBA-code kan u helpen.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de volgende code in het codevenster.
VBA-code: vergelijk twee kolomstrings voor gelijkenis 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 de F5 sleutel om de code uit te voeren. In de eerste Kutools for Excel dialoogvenster, selecteer de eerste kolom met tekstreeksen die u wilt vergelijken en klik vervolgens op de OK knop.
4. Dan de tweede Kutools for Excel dialoogvenster verschijnt, selecteer de tweede kolomstrings en klik op het OK knop.
5. In de laatste Kutools for Excel dialoogvenster, als u strings op gelijkenis wilt vergelijken, klikt u op het Ja knop. En om de verschillen tussen de vergeleken tekenreeksen te markeren, klikt u op het Nee knop. Zie screenshot:
Vervolgens kunt u de vergeleken resultaten zien zoals onderstaand screenshot.
Gerelateerde artikelen:
- Hoe twee kolommen te vergelijken en de onge毛venaarde gegevens in Excel te markeren?
- Hoe precies twee strings (hoofdlettergevoelig) in Excel vergelijken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!