Note: The other languages of the website are Google-translated. Back to English

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

Zum Beispiel haben Sie eine Kauftabelle in Excel als ersten Screenshot. Jetzt müssen Sie doppelte Zeilen basierend auf der Spalte "Frucht" entfernen und die höchsten Werte der entsprechenden Früchte in der Spalte "Menge" beibehalten, wie im zweiten Screenshot gezeigt. Welche Lösung können Sie sich vorstellen? Dieser Artikel enthält zwei Tricks zur Lösung.

Entfernen Sie doppelte Zeilen und behalten Sie die höchsten Werte nur mit VBA bei

Entfernen Sie doppelte Zeilen und behalten Sie die höchsten Werte nur mit Kutools for Excel bei

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

Kutools für Excel Erweiterte Zeilen kombinieren Mit diesem Dienstprogramm können Excel-Benutzer schnell und einfach den Maximalwert des Minimalwerts jedes Elements in einer anderen Spalte ermitteln.

ad erweiterte Mähdrescherzeilen max

Dieses Dienstprogramm "Erweiterte Zeilen kombinieren" kann auch Zeilen kombinieren und Werte durch bestimmte Markierungen trennen oder Zeilen kombinieren und deren Summen, Anzahl der Vorkommen, Maximal- / Minimalwerte, Durchschnittswerte usw. berechnen.

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

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.

VBA: Entfernen Sie doppelte Zeilen und behalten Sie die höchsten Werte bei

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 Run 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:

Anmerkungen:

(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.

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Kostenlose Testversion jetzt!

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.

doc Duplikate entfernen behält den höchsten Wert 2

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!


Kutools for Excel enthält mehr als 300 praktische Tools für Excel, die Sie in 30 Tagen ohne Einschränkung kostenlos testen können. Jetzt herunterladen und kostenlos testen!

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (1)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Im VBA-Beispiel wird die Datumsspalte nicht gefiltert. Bitte beraten.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL