¿Cómo combinar dos listas sin duplicados en Excel?

Hay dos listas en tu hoja de trabajo, y algunos de los valores en las listas están duplicados. Quieres combinar estas dos listas y dejar solo los valores únicos, como se muestra en las capturas de pantalla a continuación. ¿Cómo puedes hacerlo?

Combinar listas sin duplicados con Eliminar duplicados en Excel

Combinar listas sin duplicados con VBA

Combinar listas sin duplicados con Kutools para Excel

Combinar listas sin duplicados con Eliminar duplicados en Excel

Para combinar dos listas y eliminar valores duplicados en Excel, puedes hacer lo siguiente:

1. Copia una de las dos listas y pégala al final de la otra lista, como se muestra en la captura de pantalla:

2. Selecciona la lista y haz clic en Datos > Eliminar duplicados, como se muestra en la captura de pantalla:

3. En el cuadro de diálogo Eliminar duplicados, si tu columna no tiene encabezado, desmarca Los datos contienen encabezados, y luego haz clic en Aceptar. Ver captura de pantalla:

4. Luego aparecerá un cuadro de diálogo en la pantalla indicando que los duplicados han sido eliminados, haz clic en Aceptar. Ver captura de pantalla:

Puedes ver el resultado:

Combinar listas sin duplicados con VBA

En Excel, también puedes usar una macro VBA para combinar las dos listas sin duplicados.

1. Mantén presionado el botón ALT y presiona F11 en el teclado para abrir una ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y copia el código VBA en el módulo.

VBA: Combinar listas sin duplicados

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. Haz clic en el botón Ejecutar o presiona F5 para ejecutar el código VBA.

4. Aparecerá un cuadro de diálogo en la pantalla, y podrás seleccionar el rango que deseas combinar. Ver captura de pantalla:

5. Haz clic en Aceptar, luego aparecerá otro cuadro de diálogo para que selecciones una celda donde se mostrará el resultado combinado. Ver captura de pantalla:

6. Haz clic en Aceptar. Podrás ver que las listas se han combinado.

Consejo: El resultado no conservará el formato de las celdas después de ejecutar el código VBA anterior.

Combinar listas sin duplicados con Kutools para Excel

Con Kutools para Excel instalado, puedes usar la función Seleccionar duplicados y celdas únicas para resolver el problema de combinar dos listas sin duplicados.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. Prueba gratis sin limitaciones durante 30 días. Consíguelo ahora.

1. Copia una de las dos listas y pégala al final de la otra lista, selecciona la nueva lista, luego haz clic en Kutools > Seleccionar > Seleccionar duplicados y celdas únicas. Ver captura de pantalla:

2. En el cuadro de diálogo Seleccionar duplicados y celdas únicas, marca Todos los únicos (Incluyendo primeros duplicados), haz clic en Aceptar.

3. Luego aparecerá un cuadro de diálogo indicándote cuántos valores únicos han sido seleccionados, haz clic en Aceptar y Cancelar para cerrar ambos cuadros de diálogo. Ver captura de pantalla:

4. Y copia los valores únicos seleccionados y pégales en una nueva columna. Ver captura de pantalla:

Haz clic aquí para saber más sobre Seleccionar duplicados y celdas únicas.

Artículos relacionados:

• Encuentra valores únicos entre dos columnas
• Encuentra valores duplicados en dos columnas