Hogyan lehet összehasonlítani két húr hasonlóságát vagy kiemelni a különbségeket az Excelben?
Bizonyos esetekben előfordulhat, hogy csak két szomszédos húrcellát kell összehasonlítania, és meg kell jelölnie azok hasonlóságait vagy különbségeit az Excelben. Ez a cikk két módszert kínál az elérésére.
Két karakterláncot hasonlítson össze a képlettel
Két karakterláncot hasonlítson össze, vagy emelje ki a különbségeket a VBA kóddal
Két karakterláncot hasonlítson össze a képlettel
Amint az alábbi képernyőképen látható, ha csak azt szeretné tudni, hogy az összehasonlított karakterláncok egyeznek-e vagy sem, akkor alkalmazhatja a következő képletet.
1. Válasszon egy üres C2 cellát, írja be a képletet = PONTOS (A2, B2) a Formula Bar-ba, majd nyomja meg az Enter billentyűt. Lásd a képernyőképet:
Megjegyzések: A képletben A2 és B2 az összehasonlító húrokat tartalmazó cellák.
2. Folyamatosan válassza ki az eredmény cellát, majd húzza a Kitöltő fogantyút a cellákhoz, amíg meg nem kapja az összes összehasonlított eredményt.
A FALSE eredmény azt jelenti, hogy az összehasonlított karakterláncok eltérnek, és az IGAZ eredmény azt jelzi, hogy a két összehasonlított karakterlánc egyezik. Lásd a képernyőképet:
Két karakterláncot hasonlítson össze, vagy emelje ki a különbségeket a VBA kóddal
Ha két húrot akar összehasonlítani, és kiemeli a hasonlóságokat vagy különbségeket közöttük. A következő VBA-kód segíthet.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a következő kódot a Kód ablakba.
VBA kód: Hasonlítson össze két oszlop karakterláncot a hasonlóság vagy a különbségek kiemeléséhez
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. megnyomni a F5 gombot a kód futtatásához. Az elsőben Kutools az Excel számára párbeszédpanelen válassza ki az összehasonlítandó szöveges karakterláncok első oszlopát, majd kattintson a gombra OK gombot.
4. Ezután a második Kutools az Excel számára megjelenik a párbeszédpanel, válassza ki a második oszlopláncot, majd kattintson a gombra OK gombot.
5. Az utolsóban Kutools az Excel számára párbeszédpanelen, ha összehasonlítani szeretné a karakterláncokat, kattintson a gombra Igen gomb. Az összehasonlított karakterláncok közötti különbségek kiemeléséhez kattintson a gombra Nem gomb. Lásd a képernyőképet:
Ezután láthatja az összehasonlított eredményeket az alábbi képernyőképen.
Kapcsolódó cikkek:
- Hogyan lehet összehasonlítani két oszlopot, és kiemelni az Excel páratlan adatait?
- Hogyan lehet pontosan összehasonlítani két karakterláncot (kis- és nagybetűk között) az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!