¿Cómo comparar dos cadenas de texto para evaluar su similitud o resaltar diferencias en Excel?
En algunos casos, es posible que solo necesites comparar dos celdas adyacentes con cadenas de texto y marcar sus similitudes o diferencias en Excel. Este artículo proporciona dos métodos para lograrlo.
Comparar dos cadenas de texto con una fórmula
Comparar dos cadenas de texto para evaluar su similitud o resaltar diferencias con código VBA
Comparar dos cadenas de texto con una fórmula
Como se muestra en la captura de pantalla a continuación, si solo quieres saber si las cadenas comparadas coinciden o no, puedes aplicar la siguiente fórmula.
1. Selecciona una celda en blanco C2, ingresa la fórmula =EXACT(A2, B2) en la Barra de fórmulas (F), y luego presiona la tecla Enter. Ver captura de pantalla:
Nota: En la fórmula, A2 y B2 son las celdas que contienen las cadenas de texto a comparar.
2. Mantén seleccionada la celda del resultado, luego arrastra el controlador de relleno hacia las celdas hasta obtener todos los resultados de la comparación.
El resultado FALSO significa que las cadenas comparadas son diferentes, y el resultado VERDADERO indica que las dos cadenas comparadas coinciden. Ver captura de pantalla:
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Comparar dos cadenas de texto para evaluar su similitud o resaltar diferencias con código VBA
Si deseas comparar dos cadenas de texto y resaltar las similitudes o diferencias entre ellas, el siguiente código VBA puede ayudarte.
1. Presiona 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, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código en la ventana de Código.
Código VBA: Comparar dos columnas de cadenas de texto 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. Presiona la tecla F5 para ejecutar el código. En el primer cuadro de diálogo de Kutools para Excel, selecciona la primera columna de cadenas de texto que necesitas comparar, y luego haz clic en el botón Aceptar.
4. Luego aparecerá el segundo cuadro de diálogo de Kutools para Excel, selecciona la segunda columna de cadenas de texto y haz clic en el botón Aceptar.
5. En el último cuadro de diálogo de Kutools para Excel, si deseas comparar las cadenas de texto para evaluar su similitud, haz clic en el botón Sí. Y para resaltar las diferencias de las cadenas comparadas, haz clic en el botón No. Ver captura de pantalla:
Luego podrás ver los resultados de la comparación como se muestra en la siguiente captura de pantalla.
Artículos relacionados:
- ¿Cómo comparar dos columnas y resaltar los datos no coincidentes en Excel?
- ¿Cómo comparar exactamente dos cadenas de texto (distinguir mayúsculas y minúsculas) en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos