Hoe verwijdert u dubbele rijen in Excel en behoudt u daarbij de rij met de meest recente datum?
Ik heb een gegevensbereik met enkele Dubbele waarden in kolom A en in kolom B staan enkele datums. Nu moet ik de Dubbele rij in kolom A verwijderen, maar de meest recente datum uit de overeenkomstige kolom B behouden, zoals op de volgende schermafbeelding wordt weergegeven. Heeft u goede ideeën om dit probleem snel en eenvoudig op te lossen in Excel?
Verwijder Dubbele waarden en behoud de meest recente datum in een andere kolom met VBA-code
Verwijder Dubbele waarden en behoud de meest recente datum in een andere kolom met Kutools voor Excel
Verwijder Dubbele waarden en behoud de meest recente datum in een andere kolom met VBA-code
De volgende VBA-code helpt u dubbele cellen te verwijderen en tegelijkertijd de meest recente datum uit een andere kolom te behouden. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak vervolgens de volgende macro in het Module-venster.
VBA-code: verwijder Dubbele waarden en behoud de meest recente datum
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. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt een meldingsvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt gebruiken. Zie schermafbeelding:
4. Klik vervolgens op OK. De dubbele waarden in kolom A zijn verwijderd en de meest recente datum in kolom B is behouden, precies zoals gewenst. Zie de schermafbeelding:
Opmerking: Om de bovenstaande code met succes toe te passen, moet de kolom met dubbele waarden links van de datumkolom staan.
Verwijder Dubbele waarden en behoud de meest recente datum in een andere kolom met Kutools voor Excel
Bent u niet vertrouwd met code? Geen zorgen! Het krachtige hulpprogramma Geavanceerd samenvoegen van rijen van Kutools voor Excel helpt u deze taak moeiteloos uit te voeren.
Na installatie van Kutools voor Excelgaat u als volgt te werk:
1. Selecteer het gegevensbereik waarvan u dubbele items wilt verwijderen en de meest recente datum uit een andere kolom wilt behouden.
2. Klik vervolgens op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen. Zie schermafbeelding:
3. In het dialoogvenster Rijen samenvoegen op basis van kolom klikt u op de kolomnaam waarvan u de dubbele waarden wilt verwijderen en vervolgens op Primaire sleutel. Zie schermafbeelding:
4. Klik vervolgens op een andere kolomnaam waarvan u de meest recente datum wilt behouden en klik daarna op Berekenen > Max. Zie schermafbeelding:
5. Klik daarna op de knop OK om dit dialoogvenster te sluiten. U ziet nu dat de dubbele namen in kolom A zijn verwijderd en alleen de meest recente datum in de overeenkomstige kolom B is behouden. Zie schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: verwijder Dubbele waarden en behoud de meest recente datum in een andere kolom met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins