¿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 Sub

3. 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.

Eliminar duplicados pero mantener la primera instancia con Kutools para Excel