¿Cómo eliminar duplicados pero mantener la primera instancia en Excel?
Supongamos que hay una lista de valores en tu hoja de cálculo que contiene algunos duplicados, y ahora necesitas eliminar los duplicados pero mantener la primera fila donde se encuentra el valor duplicado. En este artículo, te mostraremos dos métodos para eliminar duplicados pero mantener la primera instancia en Excel.
Eliminar duplicados pero mantener la primera instancia con código VBA
Eliminar duplicados pero mantener la primera instancia con Kutools para Excel
Eliminar duplicados pero mantener la primera instancia con código VBA
Puedes ejecutar el siguiente código VBA para eliminar duplicados pero mantener la primera instancia en una columna.
1. Presiona Alt + F11 para abrir el cuadro de diálogo Microsoft Visual Basic para Aplicaciones.
2. En el cuadro de diálogo Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código en la ventana de código.
Código VBA: eliminar duplicados pero mantener la primera instancia
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub3. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente KutoolsforExcel, selecciona el rango donde deseas eliminar los duplicados y luego haz clic en el botón Aceptar. Ver captura de pantalla:
Ahora puedes ver que todas las filas duplicadas excepto los primeros registros han sido eliminadas del rango de columnas seleccionado. Ver captura de pantalla:
Eliminar duplicados pero mantener la primera instancia con Kutools para Excel
Además del código VBA, puedes usar la utilidad Seleccionar Celdas Duplicadas y Únicas del complemento Kutools para Excel para eliminar fácilmente los duplicados pero mantener las primeras instancias en Excel.
1. Selecciona el rango donde deseas eliminar los duplicados pero mantener las primeras instancias. Luego haz clic en Kutools > Seleccionar > Seleccionar Celdas Duplicadas y Únicas.
2. En el cuadro de diálogo Seleccionar Celdas Duplicadas y Únicas, selecciona la opción Valores Duplicados (Excluir la primera coincidencia), y luego haz clic en el botón Aceptar. Ver captura de pantalla:
3. En el siguiente cuadro de diálogo Seleccionar Celdas Duplicadas y Únicas, haz clic en Aceptar.
4. Ahora los duplicados están seleccionados excepto las primeras instancias, por favor presiona la tecla Eliminar para quitar los duplicados seleccionados.
Nota: Si deseas eliminar las filas duplicadas, solo necesitas marcar la opción Seleccionar fila completa en el cuadro de diálogo Seleccionar Celdas Duplicadas y Únicas, y luego aplicar el comando Eliminar del menú contextual para eliminar las filas duplicadas completas.
Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarla y luego vaya a aplicar la operación siguiendo los pasos anteriores.
Eliminar duplicados pero mantener la primera instancia con Kutools para Excel
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos