¿Cómo eliminar filas duplicadas y conservar únicamente los valores más altos en Excel?

Suponga que tiene una tabla como la que se muestra en la siguiente captura de pantalla. Este método presenta una macro de VBA para eliminar filas duplicadas según una columna específica y conservar únicamente los valores más altos de otra columna en Excel. Siga estos pasos:

1. Pulse simultáneamente las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en la nueva ventana del módulo que se abre.

VBA: Eliminar Fila duplicada y conservar los valores más altos

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar esta macro VBA.

4. Ahora aparecerá un cuadro de diálogo. Selecciona las columnas en las que deseas eliminar filas duplicadas y conservar los valores más altos, y haz clic en el botón Aceptar.

En nuestro caso, eliminaremos filas duplicadas según la columna Fruta y conservaremos los valores más altos en la columna Cantidad; por tanto, seleccionamos la columna Fruta y la columna Cantidad tal como se muestra en la captura de pantalla anterior.

A continuación, verá que las filas duplicadas se han eliminado según la columna **Fruta** y que se han conservado los valores más altos de las frutas correspondientes en la columna **Cantidad**. Vea la captura de pantalla:

Notas:

(1) El rango limitado debe comenzar por la columna según la cual va a eliminar filas duplicadas.

(2) Esta macro de VBA solo puede conservar los valores más altos en la columna inmediatamente posterior a aquella en la que ha eliminado filas duplicadas.

(3) Esta macro de VBA no es compatible con Microsoft Excel 2007.

La macro VBA anterior puede resultar poco intuitiva para algunos usuarios y solo permite conservar los valores más altos en la columna situada inmediatamente después de la columna de criterios. Pero la utilidad Combinar filas avanzado de Kutools para Excel le ayudará a resolver este problema con facilidad.

1. Seleccione la tabla de la que desea eliminar filas duplicadas y conservar los valores más altos (en nuestro caso, seleccione A1:C24) y haga clic en Kutools > Combinar y dividir > Combinar filas avanzado.

2. En el cuadro de diálogo **Combinar filas basado en columna** que se abre, configure lo siguiente:

(1) Seleccione la columna Fruta (por la que va a eliminar filas duplicadas) y, a continuación, haga clic en el botón Clave principal.

(2) Seleccione la columna Cantidad (en la que desea conservar los valores más altos) y, a continuación, haga clic en Calcular > Máx.

(3) Especifique las reglas de combinación para el resto de columnas según sus necesidades.

3. Haga clic en el botón Aceptar y verá que todas las filas duplicadas se han eliminado según la columna Fruta, conservando únicamente el valor máximo de cada fruta en la columna Cantidad. Vea la captura de pantalla:

La utilidad Combinar filas avanzadode Kutools para Excel permite eliminar fácilmente Combinar Filas según una columna y, además, calcular otras columnas en función de esta misma columna, por ejemplo, mediante Suma, Contar, Máx, Mín, Producto, etc.¡Haga clic para obtener una prueba gratuita de 60 días, sin limitaciones!