¿Cómo comparar dos columnas y resaltar los datos no coincidentes en Excel?

Como se muestra en la captura de pantalla a continuación, para comparar dos columnas de celdas adyacentes y resaltar los datos no coincidentes, puedes probar los métodos descritos en el artículo.

Comparar dos columnas y resaltar los datos no coincidentes con código VBA
Comparar dos columnas y resaltar los datos no coincidentes con Kutools para Excel

Comparar dos columnas y resaltar los datos no coincidentes con código VBA

En la captura de pantalla anterior, estás comparando los datos de la columna A y la columna B. Por favor, ejecuta el siguiente código VBA para resaltar los datos no coincidentes.

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 y resaltar los datos no coincidentes

Sub Dyeware()
    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 ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona la primera columna que necesitas comparar, luego haz clic en el botón Aceptar. Ver captura de pantalla.

4. Luego selecciona la segunda columna a comparar en el siguiente cuadro de diálogo emergente de Kutools para Excel.

5. En el cuadro de diálogo como se muestra en la captura de pantalla a continuación, para resaltar los datos no coincidentes, haz clic en el botón No.

Luego, todos los datos no coincidentes entre las dos columnas se resaltan inmediatamente. Ver captura de pantalla:

Comparar dos columnas y resaltar los datos no coincidentes con Kutools para Excel

Si solo quieres averiguar y resaltar si los valores de las celdas en una columna existen en otra columna o no, por ejemplo, como se muestra en la captura de pantalla a continuación, el número 2 en la columna A no existe en la columna B. Puedes probar la utilidad Comparar Rangos de Kutools para Excel.

1. Haz clic en Kutools > Insertar > Seleccionar Celdas Iguales y Diferentes. Ver captura de pantalla:

2. En el cuadro de diálogo Seleccionar Celdas Iguales y Diferentes, necesitas configurar lo siguiente:

3. Luego aparece un cuadro de diálogo que te informa cuántas celdas están solo en la columna A pero no en la columna B, haz clic en el botón Aceptar, y todas las celdas coincidentes se seleccionan en la columna A.

Artículos relacionados:

• ¿Cómo comparar dos cadenas de texto para similitud o resaltar diferencias en Excel?
• ¿Cómo comparar exactamente dos cadenas de texto (distinguiendo mayúsculas y minúsculas) en Excel?