The Excel følgende VBA-kode kan hjelpe deg med å fjerne de overflødige celler og holde den nyeste er fra en annen kolonne, kan du gjøre som følger:?
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim følgende makro i modulen Window
VBA-kode. Fjerne dupliserte verdier og holde nyeste dato
Sub test () 'updateby Extendoffice 20151030 Dim xRng Som Range Dim xTxt As String On Error Resume Neste xTxt = Application.ActiveWindow.RangeSelection.Address Set xRng = Application.InputBox ("velg dataområdet:", "Kutools for Excel", xTxt,,,,, 8) Hvis xRng Er Nothing Then Exit Sub Hvis (xRng .Columns.Count < 2) Eller (xRng.Rows.Count < 2) Deretter MsgBox "brukt serien er ugyldig", "Kutools for Excel" Exit Sub End If xRng.Sort NØKKEL1: = xRng.Cells (1 1), bestilling1: = xlAscending, TAST2: = xRng.Cells (1, 2), Order2: = xlDescending, Header: = xlGuess xRng.RemoveDuplicates Kolonner: = 1, Overskrift: = xlGuessEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg velge dataområdet som du vil bruke, se skjermbilde:
4. Og klikk deretter på OK, har like verdier i kolonne A er fjernet og den siste datoen i kolonne B holdes så du trenger. Se skjermbilde:
Merk: For å bruke koden ovenfor vellykket, inneholder kolonnen like verdier må være plassert på venstre side av datokolonnen