Come confrontare due stringhe per verificarne la similarità o evidenziarne le differenze in Excel?
In alcuni casi potrebbe essere necessario confrontare soltanto due celle adiacenti contenenti stringhe ed evidenziarne le somiglianze o le differenze in Excel. Questo articolo presenta due metodi efficaci per ottenere questo risultato.
Confrontare due stringhe con una formula
Confrontare due stringhe per similarità o evidenziare le differenze con codice VBA
Confrontare due stringhe con una formula
Come illustrato nello screenshot seguente, per verificare rapidamente se le stringhe confrontate corrispondono o meno, è sufficiente applicare la formula seguente.
1. Seleziona una cella vuota (ad esempio C2), inserisci la formula =EXACT(A2; B2) nella Barra delle formule e premi Invio. Guarda lo screenshot:
Nota: nella formula, A2 e B2 sono le celle che contengono le stringhe da confrontare.
2. Mantenendo selezionata la cella del risultato, trascina il quadratino di riempimento fino alle celle desiderate per ottenere tutti i risultati del confronto.
Il risultato **FALSO** indica che le stringhe confrontate sono diverse, mentre il risultato **VERO** significa che le due stringhe corrispondono. Vedere lo screenshot:
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Confrontare due stringhe per similarità o evidenziare le differenze con codice VBA
Se desiderate confrontare due stringhe ed evidenziarne le similitudini o le differenze, il seguente codice VBA fa al caso vostro.
1. Premere contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Nella finestra di Microsoft Visual Basic, Applications, fai clic su Inserisci > Modulo, quindi copia e incolla il codice seguente nella finestra del codice.
Codice VBA: confrontare due colonne di stringhe per similarità o evidenziare 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 Sub3. Premere il tasto F5 per eseguire il codice. Nella prima finestra di dialogo Kutools per Excel, selezionare la prima colonna di stringhe da confrontare e fare clic sul pulsante OK.
4. Successivamente viene visualizzata la seconda finestra di dialogo Kutools per Excel. Seleziona la seconda colonna di stringhe e fai clic sul pulsante OK.
5. Nell’ultima finestra di dialogo Kutools per Excel, se desideri confrontare le stringhe in base alla similarità, fai clic sul pulsante Sì. Se invece vuoi evidenziare le differenze tra le stringhe confrontate, fai clic sul pulsante No. Vedere lo screenshot:
A questo punto, puoi visualizzare i risultati del confronto come illustrato nello screenshot seguente.
Articoli correlati:
- Come confrontare due colonne ed evidenziare i dati non corrispondenti in Excel?
- Come confrontare esattamente due stringhe, distinguendo tra maiuscole e minuscole, in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi