¿Cómo eliminar duplicados pero mantener la primera instancia en Excel?
Digamos que hay una lista de valores en su hoja de trabajo que contiene algunos duplicados, ahora, debe eliminar los duplicados pero mantener la primera fila donde se encuentra el valor duplicado. En este artículo, le 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
Elimine duplicados pero mantenga la primera instancia con Kutools para Excel
Eliminar duplicados pero mantener la primera instancia con código VBA
Puede ejecutar el siguiente código VBA para eliminar duplicados pero mantener la primera instancia en una columna.
1. Prensa otro + F11 para abrir el Microsoft Visual Basic para aplicaciones caja de diálogo.
2. En el Microsoft Visual Basic para aplicaciones cuadro de diálogo, haga clic en recuadro > Módulo. Luego copie y pegue el siguiente código en la ventana de código.
Código VBA: elimine los duplicados pero mantenga 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. Prensa F5 clave para ejecutar el código. En el apareciendo KutoolsparaExcel cuadro de diálogo, seleccione el rango que desea eliminar los duplicados y luego haga clic en el OK botón. Ver captura de pantalla:
Ahora puede ver todas las filas duplicadas, excepto que los primeros registros se eliminan del rango de columnas seleccionado. Ver captura de pantalla:
Elimine duplicados pero mantenga la primera instancia con Kutools para Excel
Además del código VBA, puede usar el Seleccione celdas duplicadas y únicas utilidad de Kutools for Excel complemento para eliminar fácilmente los duplicados pero mantener las primeras instancias en Excel.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Seleccione el rango en el que desea eliminar los duplicados pero conserve las primeras instancias. Luego haga clic en Kutools > Seleccione > Seleccione celdas duplicadas y únicas.
2. En el Seleccione celdas duplicadas y únicas cuadro de diálogo, seleccione el Duplicados (excepto el primero) opción, y luego haga clic en la OK botón. Ver captura de pantalla:
3. En lo siguiente Seleccione celdas duplicadas y únicas cuadro de diálogo, haga clic en OK.
4. Ahora los duplicados están seleccionados excepto las primeras instancias, presione el Borrar clave para eliminar los duplicados seleccionados.
Note: Si desea eliminar las filas duplicadas, solo necesita verificar Seleccionar filas enteras opción en el Seleccione celdas duplicadas y únicas cuadro de diálogo y luego aplique el Borrar comando del menú contextual para eliminar todas las filas duplicadas.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Elimine duplicados pero mantenga la primera instancia con Kutools para Excel
Las mejores herramientas de productividad de oficina
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...
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!
