¿Cómo comparar dos columnas y resaltar los datos que no coinciden en Excel?
Como se muestra en la siguiente captura de pantalla, para comparar dos columnas de celdas adyacentes y resaltar los datos que no coincidan, puede aplicar los métodos descritos en este 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
Según la captura de pantalla anterior, está comparando los datos de la columna A con los de la columna B. Ejecute el siguiente código VBA para resaltar las celdas que no coincidan.
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 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 Sub3. Pulse la tecla F5 para ejecutar el código. En el cuadro de diálogo Kutools para Excel que aparece, seleccione la primera columna que desea comparar y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla.
4. A continuación, seleccione la segunda columna que desea comparar en el cuadro de diálogo Kutools para Excel que aparece.
5. En el cuadro de diálogo que se muestra en la siguiente captura de pantalla, haga clic en el botón No para resaltar los datos no coincidentes.
Así, todos los datos que no coincidan entre ambas columnas se resaltan al instante. Consulte la captura de pantalla:
Comparar dos columnas y resaltar los datos no coincidentes con Kutools para Excel
Si solo desea detectar y resaltar si los valores de las celdas de una columna existen o no en otra columna —por ejemplo, como se muestra en la siguiente captura de pantalla, donde el número 2 de la columna A no aparece en la columna B—, puede probar la utilidad Comparar rangos de Kutools para Excel.
1. Haga clic en Kutools > Insertar > Seleccionar celdas iguales/diferentes. Vea la captura de pantalla:
2. En el cuadro de diálogo Seleccionar celdas iguales/diferentes, configúrelo de la siguiente manera:
3. A continuación, aparecerá un cuadro de diálogo indicándole cuántas celdas están en la columna A pero no en la columna B. Haga clic en Aceptar y se seleccionarán automáticamente todas las celdas coincidentes en la columna A.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Artículos relacionados:
- ¿Cómo comparar dos cadenas en Excel para evaluar su similitud o resaltar sus diferencias?
- ¿Cómo comparar dos cadenas de forma exacta (distinguiendo entre mayúsculas y minúsculas) en Excel?
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