Come rimuovere le righe duplicate in Excel mantenendo solo quelle con i valori più alti?

Si supponga di avere una tabella come mostrato nello screenshot seguente. Questo metodo illustra una macro VBA per rimuovere le righe duplicate in base a una determinata colonna, mantenendo solo quelle con i valori più alti in un’altra colonna in Excel. Procedere come segue:

1. Premere contemporaneamente i tasti Alt+F11 per aprire la finestra Microsoft Visual Basic, Applications.

2. Fare clic su Inserisci > Modulo e incollare il codice seguente nella nuova finestra del modulo aperta.

VBA: Rimuovi Riga duplicata e mantieni i valori più alti

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. Premere il tasto F5 oppure fare clic sul pulsante Esegui per eseguire questa macro VBA.

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

Nel nostro caso, rimuoveremo le righe duplicate in base alla colonna **Frutto**, mantenendo i valori più alti nella colonna **Quantità**; pertanto, selezioniamo la colonna **Frutto** e la colonna **Quantità**, come mostrato nello screenshot precedente.

A questo punto, noterai che le righe duplicate sono state rimosse in base alla colonna Frutto, mantenendo i valori più alti per ciascun frutto nella colonna Quantità. Guarda lo screenshot:

Note:

(1) L’intervallo limitato deve iniziare con la colonna in base alla quale verranno rimosse le righe duplicate.

(2) Questa macro VBA conserva i valori più alti esclusivamente nella colonna immediatamente successiva a quella utilizzata per rimuovere le righe duplicate.

(3) Questa macro VBA non è compatibile con le cartelle di lavoro di Microsoft Excel 2007.

La macro VBA sopra riportata potrebbe non essere sufficientemente semplice per alcuni utenti e consente di mantenere i valori più alti solo nella colonna immediatamente successiva a quella criterio. Tuttavia, l’utilità Unione avanzata righe di Kutools per Excel permette di risolvere facilmente questo problema.

1. Seleziona la tabella da cui desideri rimuovere le righe duplicate mantenendo i valori più alti (nel nostro caso, seleziona A1:C24), quindi fai clic su Kutools > Unisci e Dividi > Unione avanzata righe.

2. Nella finestra di dialogo aperta **Combinare righe in base a colonna**, procedi come segue:

(1) Selezionare la colonna Frutto (in base alla quale si desidera Rimuovi duplicati le righe), quindi fare clic sul pulsante Chiave primaria;

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

(3) Specifica le regole di combinazione per le altre colonne, se necessario.

3. Fare clic sul pulsante OK. Si noterà che tutte le righe duplicate sono state rimosse in base alla colonna Frutto e che solo i valori massimi relativi ai frutti corrispondenti sono stati mantenuti nella colonna Quantità. Vedere lo screenshot:

L’utilità Unione avanzata righedi Kutools per Excel consente di raggruppare facilmente Combinare Righe in base a una colonna e calcolare contemporaneamente altre colonne in base a tale colonna, ad esempio mediante Somma, Conteggio, Max, Min, Prodotto, ecc.Fai clic per una prova gratuita di 60 giorni, senza limitazioni!