¿Cómo comparar dos cadenas en Excel para evaluar su similitud o resaltar sus diferencias?
En algunos casos, solo necesitará comparar dos celdas adyacentes que contengan cadenas y resaltar sus similitudes o diferencias en Excel. Este artículo le presenta dos métodos sencillos para lograrlo.
Comparar dos cadenas con fórmula
Comparar dos cadenas para evaluar su similitud o resaltar diferencias con código VBA
Comparar dos cadenas con fórmula
Como se muestra en la siguiente captura de pantalla, si solo desea saber si las cadenas comparadas coinciden o no, puede usar la siguiente fórmula.
1. Seleccione una celda vacía (por ejemplo, C2), introduzca la fórmula =EXACT(A2;B2) en la Barra de fórmulas y pulse la tecla Entrar. Vea la captura de pantalla:
Nota: En la fórmula, A2 y B2 son las celdas que contienen las cadenas que deseas comparar.
2. Mantenga seleccionada la celda del resultado y arrastre el controlador de relleno hasta las celdas necesarias para obtener todos los resultados de la comparación.
Un resultado FALSO indica que las cadenas comparadas son distintas, mientras que un resultado VERDADERO significa que ambas coinciden. Consulte la captura de pantalla:
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Comparar dos cadenas para evaluar su similitud o resaltar diferencias con código VBA
Si desea comparar dos cadenas y resaltar sus similitudes o diferencias, el siguiente código VBA le será de gran ayuda.
1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código en la ventana de código.
Código VBA: Comparar cadenas de dos columnas para evaluar su similitud o resaltar diferencias
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. Pulse la tecla F5 para ejecutar el código. En el primer cuadro de diálogo Kutools para Excel, seleccione la primera columna de cadenas de texto que desea comparar y haga clic en el botón Aceptar.
4. A continuación, aparecerá el segundo cuadro de diálogo Kutools para Excel. Seleccione las cadenas de la segunda columna y haga clic en el botón Aceptar.
5. En el último cuadro de diálogo Kutools para Excel, si desea comparar las cadenas para evaluar su similitud, haga clic en el botón Sí. Si prefiere resaltar las diferencias entre las cadenas comparadas, haga clic en el botón No. Vea la captura de pantalla:
A continuación, podrá ver los resultados de la comparación, tal como se muestra en la siguiente captura de pantalla.
Artículos relacionados:
- ¿Cómo comparar dos columnas y resaltar los datos que no coincidan en Excel?
- ¿Cómo comparar dos cadenas de forma exacta en Excel, distinguiendo entre mayúsculas y minúsculas?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos