Wie entferne ich doppelte Zeilen, behalte aber die mit dem neuesten Datum in Excel?
Ich habe einen Datenbereich, der einige doppelte Werte in Spalte A enthält, und in Spalte B ist ein Datum angegeben. Jetzt muss ich die doppelten Zeilen in Spalte A entfernen, aber das neueste Datum aus der entsprechenden Spalte B beibehalten, wie im folgenden Screenshot gezeigt Haben Sie gute Ideen, um dieses Problem in Excel schnell und einfach zu lösen?
Entfernen Sie doppelte Werte und behalten Sie das letzte Datum mit Kutools for Excel in einer anderen Spalte bei
Entfernen Sie doppelte Werte und behalten Sie das letzte Datum in einer anderen Spalte mit VBA-Code bei
Der folgende VBA-Code kann Ihnen dabei helfen, die doppelten Zellen zu entfernen und das neueste Datum aus einer anderen Spalte beizubehalten. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie dann das folgende Makro in das Feld ein Modul Fenster.
VBA-Code: Entfernen Sie doppelte Werte und behalten Sie das letzte Datum bei
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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie verwenden möchten. Siehe Screenshot:
4. Und dann klick OKwurden die doppelten Werte in Spalte A entfernt und das späteste Datum in Spalte B wird nach Bedarf beibehalten. Siehe Screenshot:
Note: Um den obigen Code erfolgreich anzuwenden, muss sich die Spalte mit doppelten Werten links von der Datumsspalte befinden.
Entfernen Sie doppelte Werte und behalten Sie das letzte Datum mit Kutools for Excel in einer anderen Spalte bei
Wenn Sie mit dem Code nicht vertraut sind, machen Sie sich bitte keine Sorgen. Erweiterte Zeilen kombinieren of Kutools for Excel kann Ihnen helfen, diese Aufgabe mit Leichtigkeit zu lösen.
| Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie den Datenbereich aus, in dem Sie Duplikate entfernen möchten, und behalten Sie das letzte Datum in einer anderen Spalte bei.
2. Dann klick Kutoolen > Zusammenführen & Teilen > Erweiterte Zeilen kombinieren, siehe Screenshot:
3. In dem Zeilen basierend auf Spalte kombinieren Klicken Sie im Dialogfeld auf den Spaltennamen, in dem Sie die doppelten Werte entfernen möchten, und klicken Sie dann auf Primärschlüssel, siehe Screenshot:
4. Klicken Sie weiter auf einen anderen Spaltennamen, dessen aktuelles Datum beibehalten werden soll, und klicken Sie dann auf Berechnen > Max, siehe Screenshot:
5. Und dann klick Ok Klicken Sie auf die Schaltfläche, um diesen Dialog zu schließen. Jetzt können Sie sehen, dass die doppelten Namen in Spalte A entfernt wurden, und nur das neueste Datum in der entsprechenden Spalte B beibehalten. Siehe Screenshot:
Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!
Demo: Entfernen Sie doppelte Werte und behalten Sie mit Kutools for Excel das letzte Datum in einer anderen Spalte bei
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!
