Hoe verwijdert u dubbele rijen en behoudt u alleen de hoogste waarden in Excel?

Stel dat u een tabel heeft zoals op de onderstaande schermafbeelding. Met deze methode introduceert u een VBA-macro waarmee u dubbele rijen verwijdert op basis van een bepaalde kolom en alleen de rijen met de hoogste waarden in een andere kolom behoudt in Excel. Volg deze stappen:

1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het nieuw geopende modulevenster.

VBA: Dubbele rij verwijderen en hoogste waarden behouden

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. Druk op de F5-toets of klik op de Uitvoeren-knop om deze VBA uit te voeren.

4. Er verschijnt nu een dialoogvenster. Selecteer de kolommen waarmee u dubbele rijen wilt verwijderen en waarin u de hoogste waarden wilt behouden, en klik op de OK-knop.

In ons voorbeeld verwijderen we dubbele rijen op basis van de Fruitkolom en behouden we de hoogste waarden in de Hoeveelheidskolom; daarom selecteer ik de Fruitkolom en de Hoeveelheidskolom, zoals te zien is in de bovenstaande schermafbeelding.

Vervolgens ziet u dat dubbele rijen zijn verwijderd op basis van de Fruit-kolom, waarbij de hoogste waarden voor de bijbehorende vruchten zijn behouden in de Hoeveelheid-kolom. Zie schermafbeelding:

Opmerkingen:

(1) Het beperkte bereik moet beginnen met de kolom waarmee u dubbele rijen verwijdert.

(2) Deze VBA behoudt alleen de hoogste waarden in de kolom direct achter de kolom waaruit u dubbele rijen hebt verwijderd.

(3) Deze VBA-code werkt niet in Microsoft Excel 2007.

De bovenstaande VBA-code is voor sommige gebruikers mogelijk niet eenvoudig genoeg en kan alleen de hoogste waarden behouden in de kolom direct naast de criteriumkolom. Gelukkig lost de Geavanceerd samenvoegen van rijen-functie van Kutools voor Excel dit probleem moeiteloos op.

1. Selecteer de tabel waaruit u dubbele rijen wilt verwijderen en waarin u de hoogste waarden wilt behouden (selecteer A1:C24 in ons voorbeeld) en klik op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen.

2. Configureer in het geopende dialoogvenster **Rijen samenvoegen op basis van kolom** als volgt:

(1) Selecteer de Fruitkolom (waarmee u rijen zult Dubbele items verwijderen), en klik vervolgens op de Primaire sleutel-knop;

(2) Selecteer de kolom met hoeveelheden (waarin u de hoogste waarden wilt behouden) en klik vervolgens op Berekenen > Max.

(3) Geef, indien nodig, combinatieregels op voor de overige kolommen.

3. Klik op de Ok-knop. Vervolgens ziet u dat alle dubbele rijen zijn verwijderd op basis van de Fruitkolom en dat alleen de maximale waarden van de bijbehorende vruchten zijn behouden in de Hoeveelheidskolom. Zie schermafbeelding:

Met de Geavanceerd samenvoegen van rijen-functie van Kutools voor Excel kunt u eenvoudig Rijen samenvoegen op basis van één kolom en daarna ook andere kolommen berekenen op basis van deze kolom, zoals Som, Aantal, Max, Min, Product, enz.Klik hier voor een gratis proefversie van 60 dagen, zonder beperkingen!