Wie entfernt man doppelte Zeilen in Excel und behält dabei jeweils nur die Zeile mit dem höchsten Wert?

Angenommen, Sie haben eine Tabelle wie im folgenden Screenshot gezeigt. Diese Methode stellt ein VBA-Makro vor, das doppelte Zeilen basierend auf einer bestimmten Spalte entfernt und dabei jeweils nur die Zeile mit dem höchsten Wert in einer anderen Spalte beibehält. Gehen Sie dazu wie folgt vor:

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

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

VBA: Doppelte Zeile entfernen und höchste Werte beibehalten

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-Makro auszuführen.

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

In unserem Fall entfernen wir doppelte Zeilen anhand der Obst-Spalte und behalten jeweils den höchsten Wert in der Betrag-Spalte. Daher wähle ich – wie im obigen Screenshot gezeigt – die Obst- und die Betrag-Spalte aus.

Anschließend sehen Sie, dass doppelte Zeilen basierend auf der Obst-Spalte entfernt wurden und jeweils der höchste Wert pro Obstsorte in der Betrag-Spalte beibehalten wurde. Siehe Screenshot:

Hinweise:

(1) Der zu begrenzende Bereich muss mit der Spalte beginnen, nach der Sie doppelte Zeilen entfernen möchten.

(2) Dieses VBA behält ausschließlich die höchsten Werte in der Spalte direkt hinter derjenigen Spalte bei, nach der Sie doppelte Zeilen entfernt haben.

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

Das oben genannte VBA ist für manche Anwender möglicherweise nicht einfach genug und kann nur die höchsten Werte in der Spalte hinter der Kriterienspalte beibehalten. Mit der Funktion Erweiterte Zeilen zusammenführen von Kutools für Excel lösen Sie dieses Problem jedoch mühelos.

1. Markieren Sie die Tabelle, aus der Sie doppelte Zeilen entfernen und die höchsten Werte beibehalten möchten (in unserem Fall A1:C24), und klicken Sie auf Kutools > Vereinigen/Aufteilen > Erweiterte Zeilen zusammenführen.

2. Konfigurieren Sie im geöffneten Dialogfeld „Zeilen kombinieren basierend auf Spalte“ die Einstellungen wie folgt:

(1) Wählen Sie die Obst-Spalte (nach der Sie doppelte Zeilen entfernen möchten), und klicken Sie dann auf die Schaltfläche Primärschlüssel.

(2) Wählen Sie die Betrag-Spalte aus (in der Sie die höchsten Werte beibehalten möchten), und klicken Sie dann auf Berechnen > Max.

(3) Geben Sie bei Bedarf Kombinationsregeln für weitere Spalten an.

3. Klicken Sie auf die Schaltfläche OK. Anschließend sehen Sie, dass alle doppelten Zeilen basierend auf der Obst-Spalte entfernt wurden und jeweils nur der maximale Wert der entsprechenden Obstsorte in der Betrag-Spalte beibehalten wurde. Siehe Screenshot:

Mit der Funktion Erweiterte Zeilen zusammenführen von Kutools für Excel können Sie ganz einfach Zeilen nach einer Spalte zusammenführen und anschließend andere Spalten basierend auf dieser Spalte berechnen – beispielsweise Summe, Anzahl, Max, Min, Produkt usw.Klicken Sie hier für eine 60-tägige kostenlose Testversion ohne Einschränkungen!