¿Cómo combinar dos listas en Excel sin incluir duplicados?
En su hoja de cálculo tiene dos listas, y algunos valores se repiten en ambas. Quiere combinarlas y conservar solo los valores únicos, tal como se muestra en las siguientes capturas de pantalla. ¿Cómo puede lograrlo?
 |  |  |
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, puede proceder del siguiente modo:
1. Copie una de las dos listas y péguela al final de la otra; consulte la captura de pantalla:
| |  |
2. Seleccione la lista y haga clic en Datos > Eliminar duplicados; consulte la captura de pantalla:
3. En el cuadro de diálogo Eliminar duplicados, si su columna no tiene encabezado, desactive la casilla Incluir títulos y, a continuación, haga clic en Aceptar. Consulte la captura de pantalla:
4. A continuación, aparecerá un cuadro de diálogo en pantalla informándole de que los duplicados han sido eliminados. Haga clic en Aceptar. Consulte la captura de pantalla:
Puede ver el resultado:
Combinar listas sin duplicados con VBA
En Excel, también puedes usar código VBA para combinar ambas listas sin duplicados.
1. Mantenga pulsada la tecla ALT y presione F11 en el teclado para abrir una ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y copie 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. Haga clic en el botón Ejecutar o pulse F5 para ejecutar el código VBA.
4. Aparecerá un cuadro de diálogo en pantalla donde podrá seleccionar el rango que desea combinar. Consulte la captura de pantalla:
5. Haga clic en Aceptar; a continuación, aparecerá otro cuadro de diálogo para que seleccione la celda en la que mostrar el resultado combinado. Consulte la captura de pantalla:
6. Haga clic en Aceptar. Verá que las listas se han combinado.
Consejo: El resultado no conserva 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, puede utilizar la función Seleccionar Celdas Duplicadas/Únicas para combinar dos listas sin duplicados.
Kutools para Excel incluye más de 300 herramientas prácticas para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días! ¡Obtenerlo ahora!
1. Copie una de las dos listas y péguela al final de la otra. A continuación, seleccione la lista resultante y haga clic en Kutools > Seleccionar > Seleccionar Celdas Duplicadas/Únicas. Consulte la captura de pantalla:
2. En el cuadro de diálogo Seleccionar Celdas Duplicadas/Únicas, active la opción Todos los valores únicos (incluidos los primeros duplicados) y haga clic en Aceptar.
3. A continuación, aparecerá un cuadro de diálogo indicando cuántos valores únicos se han seleccionado; haga clic en Aceptar y en Cancelar para cerrar los dos cuadros de diálogo. Consulte la captura de pantalla:
4. A continuación, copie los valores únicos seleccionados y péguelos en una nueva columna. Consulte la captura de pantalla:
Haga clic aquí para obtener más información sobre la selección de celdas duplicadas o únicas.
Artículos relacionados:
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