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:
Note: 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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!