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

Hay dos listas en su hoja de trabajo, y algunos de los valores en las listas son duplicados, y desea combinar estas dos listas y dejar los valores únicos, como se muestra en las capturas de pantalla a continuación, ¿cómo puede hacerlo?

Combine listas sin duplicados con Eliminar duplicados en Excel

Combinar listas sin duplicados con VBA

Combina listas sin duplicados con Kutools para Excel

---

Combine listas sin duplicados con Eliminar duplicados en Excel

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

1. Copie una de las dos listas y péguela al final de la otra lista, vea la captura de pantalla:

2. Seleccione la lista y haga clic en Data > Eliminar duplicados, ver captura de pantalla:

3. En el Eliminar duplicados diálogo, si su columna no tiene encabezado, desmarque Mis datos tienen encabezadosY haga clic en OK. Ver captura de pantalla:

4. Luego se muestra un cuadro de diálogo en la pantalla para indicarle que los duplicados se han eliminado, haga clic en OK. Ver captura de pantalla:

Puedes ver el resultado:

---

Combinar listas sin duplicados con VBA

En Excel, un VBA también puede ayudarlo a combinar las dos listas sin duplicados.

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: 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. Hacer clic en Ejecutar botón o prensa F5 para ejecutar el VBA.

4. Aparece un cuadro de diálogo en la pantalla y puede seleccionar el rango que desea combinar. Ver captura de pantalla:

5. Hacer clic en OK, luego apareció otro cuadro de diálogo para que seleccione una celda para generar el resultado combinado. Ver captura de pantalla:

6. Hacer clic en OK. Puede ver que las listas se han combinado.

Consejo: El resultado no puede reservar el formato de las celdas después de ejecutar el VBA anterior.

---

Combina listas sin duplicados con Kutools para Excel

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

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

1. Copie una de las dos listas y péguela al final de la otra lista, seleccione la nueva lista y haga clic en Kutools > Seleccionar herramientas > Seleccionar duplicados y celdas únicas. Ver captura de pantalla:

2. En el Seleccionar duplicados y celdas únicas diálogo, comprobar Todos los únicos (incluidos los primeros duplicados), haga clic Ok.

3. Luego aparece un cuadro de diálogo para indicarle cuántos valores únicos se han seleccionado, haga clic en OK y Cancelar para cerrar dos diálogos. Ver captura de pantalla:

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

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

---

Artículos relativos:

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