Wie entfernt man doppelte Zeilen in Excel und behält dabei jeweils den Eintrag mit dem neuesten Datum?
Ich habe einen Datenbereich, der in Spalte A einige Doppelte Werte enthält, und in Spalte B stehen entsprechende Datumsangaben. Nun möchte ich die Doppelte Zeile in Spalte A entfernen, aber das neueste Datum aus der zugehörigen Spalte B beibehalten, wie im folgenden Screenshot dargestellt. Haben Sie gute Ideen, um dieses Problem in Excel schnell und einfach zu lösen?
Doppelte Werte entfernen und das aktuellste Datum in einer anderen Spalte mit VBA-Code beibehalten
Doppelte Werte entfernen und das aktuellste Datum in einer anderen Spalte mit Kutools für Excel beibehalten
Doppelte Werte entfernen und das aktuellste Datum in einer anderen Spalte mit VBA-Code beibehalten
Der folgende VBA-Code hilft Ihnen, doppelte Zellen zu entfernen und dabei jeweils das neueste Datum aus einer anderen Spalte beizubehalten. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie dann das folgende Makro in das Modul-Fenster ein.
VBA-Code: Doppelte Werte entfernen und das aktuellste Datum beibehalten
Sub test()
'updateby Extendoffice
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
MsgBox "the used range is invalid", , "Kutools for Excel"
Exit Sub
End If
xRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuess
xRng.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint eine Eingabeaufforderung, in der Sie den gewünschten Datenbereich auswählen können. Siehe Screenshot:
4. Klicken Sie dann auf OK, um die doppelten Werte in Spalte A zu entfernen und das neueste Datum in Spalte B wie gewünscht beizubehalten. Siehe Screenshot:
Hinweis: Damit der obige Code erfolgreich funktioniert, muss sich die Spalte mit den doppelten Werten links von der Datumsspalte befinden.
Doppelte Werte entfernen und das aktuellste Datum in einer anderen Spalte mit Kutools für Excel beibehalten
Wenn Sie mit VBA-Code nicht vertraut sind, machen Sie sich keine Sorgen: Das leistungsstarke Hilfsprogramm Erweiterte Zeilen zusammenführen aus dem Kutools für Excel nimmt Ihnen diese Aufgabe mühelos ab.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:
1. Wählen Sie den Datenbereich aus, für den Sie Duplikate entfernen möchten, und behalten Sie dabei das aktuellste Datum aus einer anderen Spalte bei.
2. Klicken Sie anschließend auf Kutools > Vereinigen/Aufteilen > Erweiterte Zeilen zusammenführen. Siehe Screenshot:
3. Klicken Sie im Dialogfeld Zeilen kombinieren – basierend auf Spalte auf den Spaltennamen, dessen doppelte Werte Sie entfernen möchten, und klicken Sie dann auf Primärschlüssel. Siehe Screenshot:
4. Wählen Sie nun eine weitere Spalte aus, deren aktuellstes Datum Sie beibehalten möchten, und klicken Sie anschließend auf Berechnen > Max. Siehe Screenshot:
5. Klicken Sie danach auf die Schaltfläche OK, um das Dialogfeld zu schließen. Anschließend sehen Sie, dass doppelte Namen in Spalte A entfernt wurden und jeweils nur das neueste Datum in der zugehörigen Spalte B erhalten bleibt. Siehe Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Doppelte Werte entfernen und das aktuellste Datum in einer anderen Spalte mit Kutools für Excel beibehalten
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins