Jak porównać dwa ciągi pod kątem podobieństwa lub wyróżnić różnice w programie Excel?

W niektórych przypadkach może być konieczne tylko porównanie dwóch sąsiednich komórek ciągów i zaznaczenie ich podobieństw lub różnic w programie Excel. W tym artykule przedstawiono dwie metody osiągnięcia tego celu.

Porównaj dwa ciągi ze wzorem
Porównaj dwa ciągi pod względem podobieństwa lub wyróżnij różnice z kodem VBA

Porównaj dwa ciągi ze wzorem

Jak pokazano na poniższym zrzucie ekranu, jeśli chcesz tylko wiedzieć, czy porównywane ciągi są dopasowane, czy nie, możesz zastosować następującą formułę.

1. Wybierz pustą komórkę C2, wprowadź formułę = PORÓWNAJ (A2; B2) do paska formuły, a następnie naciśnij klawisz Enter. Zobacz zrzut ekranu:

Note: We wzorze A2 i B2 to komórki zawierające porównywane ciągi.

2. Kontynuuj wybieranie komórki wynikowej, a następnie przeciągnij uchwyt wypełnienia do komórek, aż uzyskasz wszystkie porównane wyniki.

Wynik FALSE oznacza, że ​​porównywane ciągi są różne, a wynik TRUE wskazuje, że dwa porównywane ciągi są dopasowane. Zobacz zrzut ekranu:

Odblokuj magię Excela za pomocą Kutools AI

• Inteligentne wykonanie: Wykonuj operacje na komórkach, analizuj dane i twórz wykresy — a wszystko to za pomocą prostych poleceń.
• Formuły niestandardowe: Generuj dostosowane formuły, aby usprawnić przepływ pracy.
• Kodowanie VBA: Pisz i wdrażaj kod VBA bez wysiłku.
• Interpretacja formuły: Z łatwością zrozum złożone formuły.
• Tłumaczenie tekstu: Przełam bariery językowe w arkuszach kalkulacyjnych.

Zwiększ możliwości programu Excel dzięki narzędziom opartym na sztucznej inteligencji. Pobierz teraz i doświadcz wydajności jak nigdy dotąd!

Porównaj dwa ciągi pod względem podobieństwa lub wyróżnij różnice z kodem VBA

Jeśli chcesz porównać dwa ciągi znaków i podkreślić podobieństwa lub różnice między nimi. Poniższy kod VBA może ci pomóc.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej następujący kod do okna Code.

Kod VBA: porównaj dwa ciągi kolumn pod kątem podobieństwa lub wyróżnij różnice

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. wciśnij F5 klucz do uruchomienia kodu. Na początku Kutools dla programu Excel W oknie dialogowym wybierz pierwszą kolumnę ciągów tekstowych, które chcesz porównać, a następnie kliknij OK przycisk.

4. Następnie drugi Kutools dla programu Excel pojawi się okno dialogowe, wybierz ciągi drugiej kolumny i kliknij OK przycisk.

5. W ostatnim Kutools dla programu Excel w oknie dialogowym, jeśli chcesz porównać ciągi pod względem podobieństwa, kliknij przycisk Tak przycisk. Aby podświetlić różnice w porównywanych ciągach, kliknij Nie przycisk. Zobacz zrzut ekranu:

Następnie możesz zobaczyć porównane wyniki, jak pokazano poniżej.

Podobne artykuły:

• Jak porównać dwie kolumny i zaznaczyć niedopasowane dane w programie Excel?
• Jak dokładnie porównać dwa ciągi (z uwzględnieniem wielkości liter) w programie Excel?