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.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

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 honderden muisklikken voor u elke dag!
