Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo comparar dos cadenas de similitud o resaltar las diferencias en Excel?

En algunos casos, es posible que solo necesite comparar dos celdas adyacentes de cadenas y marcar sus similitudes o diferencias en Excel. Este artículo proporciona dos métodos para que lo logre.

Compara dos cadenas con la fórmula

Compara dos cadenas por similitud o resalta las diferencias con el código VBA


Compara fácilmente dos rangos / hojas de trabajo y resalta las mismas / diferentes celdas en Excel

Haz click Kutools > Seleccionar > Seleccione las mismas y diferentes celdas. El Kutools for Excel's Seleccione Celdas iguales y diferentes utilidad le ayuda a comparar fácilmente dos rangos u hojas de trabajo y luego resaltar las mismas o diferentes celdas en Excel. Ver la siguiente captura de pantalla:

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 60. Descargue la versión de prueba gratuita ahora

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

Compara dos cadenas con la fórmula


Como se muestra en la siguiente captura de pantalla, si solo desea saber si las cadenas comparadas coinciden o no, puede aplicar la siguiente fórmula.

1. Seleccione una celda en blanco C2, ingrese fórmula = EXACT (A2, B2) en la barra de fórmulas, y luego presione la tecla Enter. Ver captura de pantalla:

Nota: En la fórmula, A2 y B2 son las celdas que contienen las cadenas de comparación.

2. Siga seleccionando la celda de resultados, luego arrastre el controlador de relleno a las celdas hasta obtener todos los resultados comparados.

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:


Compara dos cadenas por similitud o resalta las diferencias con el código VBA

Si desea comparar dos cadenas y resaltar las similitudes o diferencias entre ellas. El siguiente código de VBA puede ayudarte.

1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código en la ventana Código.

Código de VBA: compare dos cadenas de columnas por similitudes o resalte las 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 Sub

3. presione el F5 clave para ejecutar el código. En el primero Kutools for Excel cuadro de diálogo, seleccione la primera columna de cadenas de texto que debe comparar y luego haga clic en OK botón.

4. Entonces el segundo Kutools for Excel cuadro de diálogo emergente, seleccione las cadenas de la segunda columna y haga clic en OK botón.

5. En el último Kutools for Excel cuadro de diálogo, si desea comparar cadenas de similitud, haga clic en botón. Y para resaltar las diferencias de las cadenas comparadas, haga clic en No botón. Ver captura de pantalla:

Luego puede ver los resultados comparados como se muestra a continuación.


Artículos relacionados:


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Stefan · 8 months ago
    Very useful script! thanks
  • To post as a guest, your comment is unpublished.
    Eddy · 10 months ago
    Hello
    How do I copy Column1 next to Column2 if one or more items in Column 1 resembles / is identical to one or more items in Column2?
    I'm sorry but I've been working with Excel VBA for a while and I can not find the answer to this question.
    Thank you in advance for your answer.
  • To post as a guest, your comment is unpublished.
    Eddy · 10 months ago
    Hello
    How do I copy Column1 next to Column2 if one or more items in Column 1 resembles / is identical to one or more items in Column2?
    I'm sorry but I've been working with Excel VBA for a while and I can not find the answer to this question.
    Thank you in advance for your answer.
  • To post as a guest, your comment is unpublished.
    Carlos · 1 years ago
    Need to know how I can identify strings with the same text format so I can link an acct to all those strings. For instance, if I have 1,000 cells with different content, I want to separate those that have format 042-XXX-XX-00 to link them to an acct#.
  • To post as a guest, your comment is unpublished.
    SDJ · 1 years ago
    Thank you!
  • To post as a guest, your comment is unpublished.
    Yogesh · 1 years ago
    Above code dose not works if any cell contains formula.
  • To post as a guest, your comment is unpublished.
    suryateja · 2 years ago
    Dear sir,
    Thank you very much for your VBA code.

    It is very much helpful.

    Actually i dont have any knowledge about coding.
    So, even to modify a little part of coding according to my requirement, i am helpless

    I have one request about this coding to make it more efficient and user friendly.
    Could you please help me??

    The main objective of above coding is to find and highlight the differences between the data in two columns for easy reference.
    But, this coding is little complicated as objective is concerned.

    Becuase, it is considering the "spaces" between the content and it is highlight the entire data even though the strings are same.
    So, if we can compare the data without spaces, then we can filter the portion of highlighted data.
    Also, instead of highlighting only the strings those which are not similar, it is hightlighting entire data right from the first different string to the data till the end of the cell.

    Hence, i would like to conclude my request as below 2 points.
    1) please edit the coding to compare the cells without consideirng the spaces
    2) please edit the coding in such a way that it can highlight only different strings but not highlighting entire para from the first different string point.

    Thank you very much for you help.

    Regards,
    Surya
    • To post as a guest, your comment is unpublished.
      Salai · 1 years ago
      i have the same request as suryateja.
      2) please edit the coding in such a way that it can highlight only different strings but not highlighting entire para from the first different string point.