Cum se elimină rândurile duplicate, dar se păstrează cel cu cea mai recentă dată în Excel?
Am o serie de date care conține câteva valori duplicate în coloana A, iar în coloana B este populată cu o anumită dată, acum, trebuie să elimin rândurile duplicate din coloana A, dar păstrez cea mai recentă dată din coloana B corespunzătoare, după cum se arată în următoarea captură de ecran , aveți idei bune pentru a rezolva această problemă în Excel rapid și ușor?
Eliminați valorile duplicate și păstrați cea mai recentă dată într-o altă coloană cu cod VBA
Eliminați valorile duplicate și păstrați cea mai recentă dată într-o altă coloană cu Kutools pentru Excel
Eliminați valorile duplicate și păstrați cea mai recentă dată într-o altă coloană cu cod VBA
Următorul cod VBA vă poate ajuta să eliminați celulele duplicat și să păstrați cea mai recentă dată dintr-o altă coloană, vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Module, apoi lipiți următoarea macro în fișierul Module Fereastră.
Cod VBA: eliminați valorile duplicate și păstrați cea mai recentă dată
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. Apoi apăsați F5 pentru a executa acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați intervalul de date pe care doriți să îl utilizați, consultați captura de ecran:
4. Apoi faceți clic pe OK, valorile duplicate din coloana A au fost eliminate și ultima dată din coloana B este păstrată după cum aveți nevoie. Vedeți captura de ecran:
notițe: Pentru a aplica cu succes codul de mai sus, coloana conține valori duplicate care trebuie amplasate în stânga coloanei de date.
Eliminați valorile duplicate și păstrați cea mai recentă dată într-o altă coloană cu Kutools pentru Excel
Dacă nu sunteți familiarizați cu codul, vă rugăm să nu vă faceți griji, utilitarul puternic- Rânduri combinate avansate of Kutools pentru Excel vă poate ajuta să rezolvați cu ușurință această sarcină.
Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Selectați intervalul de date pe care doriți să îl eliminați și păstrați cea mai recentă dată dintr-o altă coloană.
2. Apoi faceți clic pe Kutools > Merge & Split > Rânduri combinate avansate, vezi captura de ecran:
3. În Combinați rândurile pe baza coloanei caseta de dialog, faceți clic pe numele coloanei pe care doriți să eliminați valorile duplicate, apoi faceți clic pe Cheia principala, vezi captura de ecran:
4. Continuați să faceți clic pe un alt nume de coloană pe care doriți să păstrați cea mai recentă dată, apoi faceți clic pe calculati > max, vezi captura de ecran:
5. Apoi faceți clic pe Ok butonul pentru a închide acest dialog și acum, puteți vedea numele duplicate din coloana A au fost eliminate și păstrați ultima dată doar în coloana B corespunzătoare, a se vedea captura de ecran:
Descărcați și proba gratuită Kutools pentru Excel acum!
Demo: Eliminați valorile duplicate și păstrați cea mai recentă dată într-o altă coloană cu Kutools pentru Excel
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!