Hoe verwijder ik dubbele rijen, maar bewaar die met de laatste datum in Excel?

Ik heb een gegevensbereik dat enkele dubbele waarden in kolom A bevat, en in kolom B is een datum gevuld, nu moet ik de dubbele rijen in kolom A verwijderen, maar de laatste datum van overeenkomstige kolom B behouden zoals in het volgende screenshot wordt getoond , heb je goede ideeën om dit probleem snel en gemakkelijk in Excel op te lossen?

Verwijder dubbele waarden en bewaar de meest recente datum in een andere kolom met VBA-code

Verwijder dubbele waarden en bewaar de meest recente datum in een andere kolom met Kutools voor Excel

Verwijder dubbele waarden en bewaar de meest recente datum in een andere kolom met VBA-code

De volgende VBA-code kan u helpen om de dubbele cellen te verwijderen en de laatste datum uit een andere kolom te behouden, doe dit als volgt:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: verwijder dubbele waarden en bewaar 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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt gebruiken, zie screenshot:

4. En klik vervolgens op OKzijn de dubbele waarden in kolom A verwijderd en wordt de laatste datum in kolom B bewaard zoals u nodig hebt. Zie screenshot:

Opmerking:: Om de bovenstaande code met succes toe te passen, moet de kolom dubbele waarden bevatten aan de linkerkant van de datumkolom.

Verwijder dubbele waarden en bewaar de meest recente datum in een andere kolom met Kutools voor Excel

Maak u geen zorgen als u de code niet kent, het krachtige hulpprogramma- Geavanceerd Combineer rijen of Kutools for Excel kan u helpen om deze taak met gemak op te lossen.

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer het gegevensbereik waarvan u duplicaten wilt verwijderen en bewaar de meest recente datum uit een andere kolom.

2. Dan klikken Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen, zie screenshot:

3. In de Combineer rijen op basis van kolom dialoogvenster, klik op de kolomnaam waarvan u de dubbele waarden wilt verwijderen en klik vervolgens op Hoofdsleutel, zie screenshot:

4. Blijf op een andere kolomnaam klikken waarvan u de meest recente datum wilt behouden, en klik vervolgens op Berekenen > Max, zie screenshot:

5. En klik vervolgens op Ok knop om dit dialoogvenster te sluiten, en nu kunt u zien dat de dubbele namen in kolom A zijn verwijderd en alleen de laatste datum in overeenkomstige kolom B behouden, zie screenshot:

Download en gratis proef Kutools voor Excel nu!

Demo: verwijder dubbele waarden en bewaar de meest recente datum in een andere kolom met Kutools voor Excel

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...