Entfernen Sie problemlos doppelte Zeilen basierend auf Kriterien in einer Spalte und behalten Sie nur die höchsten Werte in Excel bei

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

1. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2 Klicken Insert > Modulund fügen Sie den folgenden Code in das neu öffnende Modulfenster ein.

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 Taste oder klicken Sie auf Führen Sie Schaltfläche, um diese VBA auszuführen.

4. Nun erscheint ein Dialogfeld. Bitte wählen Sie die Spalten aus, nach denen Sie doppelte Zeilen entfernen möchten, reservieren Sie die höchsten Werte und klicken Sie auf OK .

In unserem Fall werden wir doppelte Zeilen nach Fruchtspalte entfernen und die höchsten Werte in der Betragsspalte beibehalten. Daher wähle ich die Fruchtspalte und die Betragsspalte aus, wie im obigen Screenshot gezeigt.

Dann werden Sie sehen, dass doppelte Zeilen basierend auf der Spalte Frucht entfernt werden und die höchsten Werte der entsprechenden Früchte in der Spalte Menge beibehalten werden. Siehe Screenshot:

Notizen:

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

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

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

Das obige VBA ist für einige Benutzer möglicherweise nicht einfach genug und kann nur die höchsten Werte in der Spalte hinter der Kriterienspalte beibehalten. Aber Kutools für Excel Erweiterte Zeilen kombinieren Dienstprogramm hilft Ihnen, dieses Problem leicht zu lösen.

1. Wählen Sie die Tabelle aus, in der Sie doppelte Zeilen entfernen und die höchsten Werte beibehalten möchten (wählen Sie in unserem Fall A1: C24), und klicken Sie auf Kutoolen > Inhalt > Erweiterte Zeilen kombinieren.

2. Konfigurieren Sie im sich öffnenden Dialogfeld Zeilen basierend auf Spalte kombinieren wie folgt:

(1) Wählen Sie die Spalte Obst (durch die Sie doppelte Zeilen entfernen) und klicken Sie dann auf Primärschlüssel Taste;

(2) Wählen Sie die Spalte Betrag (in der Sie die höchsten Werte behalten) und klicken Sie dann auf Berechnen > Max.

(3) Geben Sie nach Bedarf Kombinationsregeln für andere Spalten an.

3. Klicken Sie auf die Ok Taste. Und dann sehen Sie, dass alle doppelten Zeilen basierend auf der Fruchtspalte entfernt werden und nur die Maximalwerte der entsprechenden Früchte in der Spalte Menge beibehalten werden. Siehe Screenshot:

Das Erweiterte Zeilen kombinieren Das Dienstprogramm von Kutools für Excel kann Zeilen einfach zu einer Spalte kombinieren und dann auch andere Spalten basierend auf diesen Spalten berechnen, z. B. Summe, Anzahl, Max, Min, Produkt usw. Klicken Sie hier für eine kostenlose 60-Tage-Testversion, ohne Einschränkung!