Wie entferne ich doppelte Zeilen und behalte nur die höchsten Werte in Excel?

Angenommen, Sie haben eine Tabelle wie im folgenden Screenshot gezeigt. Diese Methode führt ein VBA-Makro ein, um doppelte Zeilen basierend auf einer bestimmten Spalte zu entfernen und nur die höchsten Werte in einer anderen Spalte in Excel beizubehalten. Bitte gehen Sie wie folgt vor:

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das neu geöffnete Modul-Fenster ein.

VBA: Doppelte Zeilen entfernen und höchste Werte behalten

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. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA auszuführen.

4. Nun erscheint ein Dialogfeld. Wählen Sie bitte die Spalten aus, in denen Sie doppelte Zeilen entfernen und höchste Werte beibehalten möchten, und klicken Sie auf die Schaltfläche OK.

In unserem Fall werden wir doppelte Zeilen anhand der Fruchtspalte entfernen und die höchsten Werte in der Betragsspalte behalten, daher wähle ich die Frucht- und Betragsspalte wie im obigen Screenshot gezeigt aus.

Dann sehen Sie, dass doppelte Zeilen basierend auf der Fruchtspalte entfernt wurden und die höchsten Werte der entsprechenden Früchte in der Betragsspalte beibehalten wurden. Siehe Screenshot:

Hinweise:

(1) Der angegebene Bereich muss mit der Spalte beginnen, nach der Sie doppelte Zeilen entfernen.

(2) Dieses VBA kann nur die höchsten Werte in der Spalte direkt hinter der Spalte beibehalten, aus der Sie doppelte Zeilen entfernt haben.

(3) Dieses VBA funktioniert nicht in Microsoft Excel 2007.

Das oben genannte VBA mag für einige Benutzer möglicherweise nicht einfach genug sein, und es kann nur höchste Werte in der Spalte hinter der Kriterienspalte beibehalten. Aber die Funktion Erweiterte Zeilen zusammenführen von Kutools für Excel hilft Ihnen, dieses Problem leicht zu lösen.

1. Wählen Sie die Tabelle aus, aus der Sie doppelte Zeilen entfernen und höchste Werte beibehalten möchten (wählen Sie in unserem Fall A1:C24 aus), und klicken Sie auf Kutools > Zusammenführen & Aufteilen > Erweiterte Zeilen zusammenführen.

2. Im sich öffnenden Dialogfeld Zeilen basierend auf Spalte zusammenführen konfigurieren Sie bitte wie folgt:

(1) Wählen Sie die Fruchtspalte (nach der Sie doppelte Zeilen entfernen möchten) aus und klicken Sie dann auf die Schaltfläche Primärschlüssel;

(2) Wählen Sie die Betragsspalte (in der Sie höchste Werte beibehalten möchten) aus und klicken Sie dann auf Berechnen > Max.

(3) Legen Sie Kombinationsregeln für andere Spalten nach Bedarf fest.

3. Klicken Sie auf die Schaltfläche OK . Dann sehen Sie, dass alle doppelten Zeilen basierend auf der Fruchtspalte entfernt wurden und nur die maximalen Werte der entsprechenden Früchte in der Betragsspalte beibehalten wurden. Siehe Screenshot:

Die Funktion Erweiterte Zeilen zusammenführen von Kutools für Excel kann Zeilen leicht anhand einer Spalte kombinieren und dann andere Spalten basierend auf dieser Spalte berechnen, wie z.B. Summe, Anzahl, Max, Min, Produkt usw. Klicken Sie hier für eine kostenlose 60-Tage-Testversion ohne Einschränkungen!