Elimine fácilmente las filas duplicadas según los criterios en una columna y solo mantenga los valores más altos en Excel

Supongamos que tiene una tabla como se muestra a continuación. Y este método introducirá una macro de VBA para eliminar filas duplicadas según una determinada columna y mantener los valores más altos solo en otra columna en Excel. Haz lo siguiente:

1. presione el otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Móduloy pegue el siguiente código en la nueva ventana del módulo de apertura.

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. presione el F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

4. Ahora aparece un cuadro de diálogo. Seleccione las columnas en las que eliminará las filas duplicadas y reserve los valores más altos, y haga clic en el OK del botón.

En nuestro caso, eliminaremos filas duplicadas por la columna de frutas y mantendremos los valores más altos en la columna de cantidad, por lo tanto, selecciono la columna de frutas y la columna de cantidad como se muestra en la captura de pantalla anterior.

Luego, verá que las filas duplicadas se eliminan según la columna Fruta, y los valores más altos de las frutas correspondientes se mantienen en la columna Cantidad. Ver captura de pantalla:

Notas:

(1) El rango especificado debe comenzar con la columna por la que eliminará las filas duplicadas.

(2) Este VBA solo puede mantener los valores más altos en la columna justo detrás de la columna por la que eliminó las filas duplicadas.

(3) Este VBA no funciona en Microsoft Excel 2007.

El VBA anterior puede no ser lo suficientemente fácil para algunos usuarios, y solo puede mantener los valores más altos en la columna detrás de la columna de criterios. Pero Kutools para Excel Filas combinadas avanzadas La utilidad le ayudará a resolver este problema fácilmente.

1. Seleccione la tabla que eliminará las filas duplicadas y mantendrá los valores más altos (seleccione A1: C24 en nuestro caso), y haga clic en Kutools > Contenido > Filas combinadas avanzadas.

2. En el cuadro de diálogo de apertura Combinar filas en función de la columna, configure de la siguiente manera:

(1) Seleccione la columna Fruta (por la que eliminará las filas duplicadas) y luego haga clic en el Clave primaria botón;

(2) Seleccione la columna Importe (en la que mantendrá los valores más altos) y luego haga clic en Calcular > Max.

(3) Especifique las reglas de combinación para otras columnas que necesite.

3. Haga clic en el Ok botón. Y luego verá que todas las filas duplicadas se eliminan según la columna de frutas y solo los valores máximos de las frutas correspondientes se mantienen en la columna de cantidad. Ver captura de pantalla:

La Filas combinadas avanzadas La utilidad de Kutools para Excel puede combinar fácilmente filas en una columna y luego calcular otras columnas en función de estas columnas también, como Suma, Cuenta, Máx., Mín., Producto, etc. Haga clic para obtener una prueba gratuita de 60 días, ¡sin limitación!