Come confrontare due stringhe per somiglianza o evidenziare le differenze in Excel?

In alcuni casi, potrebbe essere necessario confrontare solo due celle adiacenti contenenti stringhe e segnalarne le somiglianze o le differenze in Excel. Questo articolo fornisce due metodi per aiutarti a raggiungere questo obiettivo.

Confronta due stringhe con una formula
Confronta due stringhe per somiglianza o evidenzia le differenze con il codice VBA

Confronta due stringhe con una formula

Come mostrato nello screenshot sottostante, se vuoi solo sapere se le stringhe confrontate corrispondono o meno, puoi applicare la seguente formula.

1. Seleziona una cella vuota C2, inserisci la formula =EXACT(A2, B2) nella Barra delle formule, quindi premi il tasto Invio. Vedi screenshot:

Nota: Nella formula, A2 e B2 sono le celle che contengono le stringhe da confrontare.

2. Mantieni selezionata la cella del risultato, quindi trascina la maniglia di riempimento fino alle celle desiderate per ottenere tutti i risultati del confronto.

Il risultato FALSO significa che le stringhe confrontate sono diverse, mentre il risultato VERO indica che le due stringhe confrontate corrispondono. Vedi screenshot:

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Confronta due stringhe per somiglianza o evidenzia le differenze con il codice VBA

Se vuoi confrontare due stringhe ed evidenziarne le somiglianze o le differenze, il seguente codice VBA può esserti utile.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Quindi copia e incolla il seguente codice nella finestra del Codice.

Codice VBA: Confronta due colonne di stringhe per somiglianza o evidenzia le differenze

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. Premi il tasto F5 per eseguire il codice. Nel primo riquadro di dialogo di Kutools for Excel, seleziona la prima colonna di stringhe di testo che desideri confrontare, quindi fai clic sul pulsante OK.

4. Successivamente, apparirà il secondo riquadro di dialogo di Kutools for Excel; seleziona la seconda colonna di stringhe e fai clic sul pulsante OK.

5. Nell'ultimo riquadro di dialogo di Kutools for Excel, se vuoi confrontare le stringhe per somiglianza, fai clic sul pulsante Sì. Per evidenziare le differenze delle stringhe confrontate, fai clic sul pulsante No. Vedi screenshot:

A questo punto, puoi vedere i risultati del confronto come mostrato nello screenshot sottostante.

Articoli correlati:

• Come confrontare due colonne ed evidenziare i dati non corrispondenti in Excel?
• Come confrontare esattamente due stringhe (sensibile alle maiuscole/minuscole) in Excel?