Rimuovi facilmente le righe duplicate in base ai criteri in una colonna e mantieni solo i valori più alti in Excel

Supponendo che tu abbia una tabella come mostrato nell'immagine sottostante. E questo metodo introdurrà una macro VBA per rimuovere le righe duplicate in base a una determinata colonna e manterrà i valori più alti solo in un'altra colonna in Excel. Si prega di fare quanto segue:

1. premi il altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla il codice seguente nella nuova finestra del modulo di 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. premi il F5 o fare clic su Correre pulsante per eseguire questo VBA.

4. Ora viene visualizzata una finestra di dialogo. Seleziona le colonne in base alle quali rimuovere le righe duplicate e prenota i valori più alti, quindi fai clic su OK pulsante.

Nel nostro caso, rimuoveremo le righe duplicate da Fruit Column e manterremo i valori più alti in Amount Column, quindi seleziono la colonna Fruit e la colonna Amount come mostrato nell'immagine sopra.

Quindi vedrai le righe duplicate rimosse in base alla colonna Frutta e i valori più alti dei frutti corrispondenti vengono mantenuti nella colonna Quantità. Vedi screenshot:

Note:

(1) L'intervallo specificato deve iniziare con la colonna in base alla quale rimuovere le righe duplicate.

(2) Questo VBA può mantenere solo i valori più alti nella colonna appena dietro la colonna di cui hai rimosso le righe duplicate.

(3) Questo VBA non funziona in Microsoft Excel 2007.

Il VBA di cui sopra potrebbe non essere abbastanza semplice per alcuni utenti e può mantenere solo i valori più alti nella colonna dietro la colonna dei criteri. Ma Kutools per Excel Combina righe avanzate utility ti aiuterà a risolvere facilmente questo problema facilmente.

1. Selezionare la tabella in cui rimuovere le righe duplicate e mantenere i valori più alti (selezionare A1: C24 nel nostro caso) e fare clic Kutools > Contenuti > Combina righe avanzate.

2. Nella finestra di dialogo di apertura Combina righe in base alla colonna, configurare come segue:

(1) Seleziona la colonna Frutta (per cui rimuoverai le righe duplicate), quindi fai clic su Chiave primaria pulsante;

(2) Seleziona la colonna Quantità (in cui manterrai i valori più alti), quindi fai clic su calcolato > Max.

(3) Specifica le regole di combinazione per altre colonne di cui hai bisogno.

3. Fare clic sul Ok pulsante. E poi vedrai tutte le righe duplicate rimosse in base alla colonna Frutta e solo i valori massimi dei frutti corrispondenti vengono mantenuti nella colonna Quantità. Vedi screenshot:

I Combina righe avanzate l'utilità di Kutools per Excel può facilmente combinare righe per una colonna e quindi calcolare anche altre colonne basate su queste colonne, come Somma, Conteggio, Massimo, Min, Prodotto, ecc. Fai clic per una prova gratuita di 60 giorni, senza limiti!