¿Cómo comparar dos columnas y resaltar los datos no coincidentes en Excel?
Como se muestra en la siguiente captura de pantalla, para comparar dos columnas de celdas adyacentes y resaltar los datos no coincidentes, puede probar los métodos del artículo.
Compare dos columnas y resalte los datos no coincidentes con el código VBA
Compare dos columnas y resalte los datos no coincidentes con Kutools para Excel
Compare dos columnas y resalte los datos no coincidentes con el código VBA
Como en la captura de pantalla anterior, está comparando los datos en la Columna A y la Columna B. Ejecute el siguiente código VBA para resaltar los datos que no coinciden.
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 columnas y resalte 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. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione la primera columna que necesita comparar, luego haga clic en el OK botón. Ver captura de pantalla.
4. Luego, seleccione la segunda columna comparada en la siguiente ventana emergente. Kutools for Excel caja de diálogo.
5. En el cuadro de diálogo que se muestra a continuación, para resaltar los datos no coincidentes, haga clic en el No del botón.
Luego, todos los datos no coincidentes entre dos columnas se resaltan inmediatamente. Ver captura de pantalla:
Compare dos columnas y resalte los datos no coincidentes con Kutools para Excel
Si solo desea averiguar y resaltar si los valores de celda en una columna existen en otra columna o no, por ejemplo, como se muestra a continuación en la captura de pantalla, el número 2 en la columna A no existe en la columna B. puede probar el Comparar rangos utilidad de Kutools for Excel.
1. Hacer clic en Kutools > recuadro > Seleccionar celdas iguales y diferentes. Ver captura de pantalla:
2. En el Seleccionar celdas iguales y diferentes cuadro de diálogo, debe configurar de la siguiente manera:
3. Luego aparece un cuadro de diálogo para indicarle cuántas celdas que solo en la columna A pero no en la columna B, haga clic en el botón Aceptar, y todas las celdas coincidentes se seleccionan en la columna A.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Artículos relacionados:
- ¿Cómo comparar dos cadenas en busca de similitudes o resaltar diferencias en Excel?
- ¿Cómo comparar exactamente dos cadenas (distingue entre mayúsculas y minúsculas) en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!