Saltar al contenido principal

¿Cómo encontrar valores duplicados o únicos en dos columnas de dos hojas?

Tal vez comparar dos rangos en la misma hoja de trabajo y descubrir los valores duplicados o únicos es fácil para la mayoría de ustedes, pero si los dos rangos están en dos hojas de trabajo diferentes, ¿cómo puede encontrar rápidamente los valores duplicados y únicos en estos dos rangos? ? Este tutorial le presentará algunos cortes rápidos.

Compare dos mismas columnas de encabezado en dos hojas de cálculo con fórmula en Excel

Compare dos rangos en dos hojas de cálculo con VBA

Compare dos rangos en dos hojas de cálculo con Kutools para Excel


flecha azul burbuja derecha Compare dos mismas columnas de encabezado en dos hojas de cálculo con fórmula en Excel

Con la fórmula en Excel, puede comparar dos columnas de encabezado iguales como se muestra a continuación en diferentes hojas y encontrar los valores duplicados y únicos:

1. Escribiendo esta fórmula = CONTAR.SI (Hoja1! $ A: $ A, A1) en una celda en blanco adyacente al rango en la Hoja 3. Ver captura de pantalla:

2. Prensa Participar en el teclado, y luego arrastre el controlador de relleno para completar el rango que desea comparar con el rango en la Hoja 1. (Número cero significa valores duplicados en dos rangos y Número 1 significa valores únicos en Hoja3, pero no en Hoja1)

Consejos:

1.Esta fórmula solo puede comparar dos columnas con el mismo encabezado en dos hojas de cálculo.

2. Si desea encontrar los valores únicos en Sheet1, pero no en Sheet3, debe ingresar la fórmula anterior =CONTAR.SI (Hoja3! $ A: $ A, A1) en Sheet1.


flecha azul burbuja derecha Compare dos rangos en dos hojas de cálculo con VBA

1. Sostener ALT botón y prensa F11 en el teclado para abrir un Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Móduloy copie el VBA en el módulo.

VBA: compara dos rangos en dos hojas de cálculo

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 como rango, WorkRng2 como rango, Rng1 como rango, Rng2 como rango xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Rango A:", xTitleId, "", Tipo: = 8 ) Establecer WorkRng2 = Application.InputBox ("Rango B:", xTitleId, Tipo: = 8) Para cada Rng1 en WorkRng1 rng1Value = Rng1.Value Para cada Rng2 en WorkRng2 Si rng1Value = Rng2.Value Entonces Rng1.Interior.Color = VBA .RGB (255, 0, 0) Salir para el final si el siguiente próximo final Sub

3. Hacer clic en Ejecutar botón o prensa F5 para ejecutar el VBA.

4. Aparece un cuadro de diálogo en la pantalla y debe seleccionar un rango con el que desee comparar. Ver captura de pantalla:

5. Hacer clic en Ok y se muestra otro cuadro de diálogo para que seleccione el segundo rango. Ver captura de pantalla:

6. Hacer clic en Ok, y los valores duplicados tanto en el rango A como en el rango B se resaltan con el fondo rojo en el rango A. Ver captura de pantalla:

Consejos: con este VBA, puede comparar dos rangos tanto en la misma como en diferentes hojas de trabajo.


flecha azul burbuja derecha Compare dos rangos en dos hojas de cálculo con Kutools para Excel

Si la fórmula no es conveniente para usted y VBA es difícil para usted, puede probar Kutools for Excel's Comparar rangos función.

Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora

Por favor aplica Comparar rangos función haciendo clic en Kutools > Comparar rangos. Ver captura de pantalla:

Compare con dos columnas en hojas diferentes:

1. Hacer clic en Kutools > Comparar rangos, se muestra un diálogo en la pantalla. Ver captura de pantalla:

2. Especifique los rangos y las reglas, haga lo siguiente:

Dejar Comparar en el mismo rango desmarque y seleccione dos rangos haciendo clic en Rango A y Rango B, ver captura de pantalla:

Especifique los mismos valores o valores diferentes que desea encontrar en el cuadro desplegable en Reglas;

3. Hacer clic en Ok. Un cuadro de diálogo emergente le indica que se seleccionan los mismos valores.

4. Hacer clic en Ok en el cuadro de diálogo emergente. Los mismos valores entre dos rangos se seleccionan en el Rango A.

Compare dos rangos en hojas de trabajo de extensión

Si tiene dos rangos en dos hojas de cálculo como se muestra a continuación, y desea compararlos y averiguar los diferentes valores, puede hacer lo siguiente:

1. Hacer clic en Kutools > Comparar rangos, se muestra un diálogo en la pantalla.

2. Especifique los rangos y las reglas, haga lo siguiente:

Abandonar Comparar en el mismo rango desmarque y seleccione dos rangos haciendo clic en Rango A y Rango B;

Especifique los diferentes valores que desea encontrar en el cuadro desplegable en Reglas;

Compruebe que mis datos tienen encabezados in Opciones sección;

3. Hacer clic en Ok. Un cuadro de diálogo emergente le indica que se seleccionan los mismos valores.

4. Hacer clic en Ok en el cuadro de diálogo emergente. Se seleccionan los diferentes valores en el rango A. Ver captura de pantalla:

Si desea conocer los diferentes valores en el rango B de Sheet2, debe intercambiar los dos rangos.

Comparar rangos La función también puede comparar rangos en la misma hoja. Haga clic aquí para saber más sobre Comparar rangos.


Artículos relativos:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations