Hogyan lehet eltávolítani az ismétlődő sorokat, de megtartani a legfrissebb dátumot az Excelben?
Van egy olyan adattartományom, amely tartalmaz néhány ismétlődő értéket az A oszlopban, és a B oszlopban szerepel néhány dátum, most el kell távolítanom az A oszlop ismétlődő sorait, de meg kell tartanom a legújabb dátumot a megfelelő B oszlopból, az alábbi képernyőkép szerint , van valami jó ötlete a probléma gyors és egyszerű megoldására az Excel programban?
Távolítsa el az ismétlődő értékeket, és tartsa a legfrissebb dátumot egy másik oszlopban, VBA-kóddal
Távolítsa el az ismétlődő értékeket, és tartsa a legutóbbi dátumot egy másik oszlopban a Kutools for Excel segítségével
Távolítsa el az ismétlődő értékeket, és tartsa a legfrissebb dátumot egy másik oszlopban, VBA-kóddal
A következő VBA-kód segíthet az ismétlődő cellák eltávolításában és a legutóbbi dátum megtartásában egy másik oszlopból, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, majd illessze be a következő makrót a Modulok Ablak.
VBA kód: Távolítsa el az ismétlődő értékeket, és őrizze meg a legfrissebb dátumot
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. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, és megjelenik egy felszólító mező, amely emlékezteti Önt a használni kívánt adattartomány kiválasztására, lásd a képernyőképet:
4. Kattintson a gombra OK, az A oszlop ismétlődő értékeit eltávolítottuk, és a B oszlop legújabb dátumát a szükség szerint megtartottuk. Lásd a képernyőképet:
Megjegyzések: A fenti kód sikeres alkalmazásához az ismétlődő értékeket tartalmazó oszlopnak a dátum oszlop bal oldalán kell elhelyezkednie.
Távolítsa el az ismétlődő értékeket, és tartsa a legutóbbi dátumot egy másik oszlopban a Kutools for Excel segítségével
Ha még nem ismeri a kódot, kérjük, ne aggódjon, a hatékony segédprogram- Haladó kombinált sorok of Kutools az Excel számára segíthet könnyedén megoldani ezt a feladatot.
| Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Válassza ki azt az adattartományt, amelyből el kívánja távolítani a duplikátumokat, és tartsa meg a legutóbbi dátumot egy másik oszlopból.
2. Ezután kattintson Kutools > Egyesítés és felosztás > Haladó kombinált sorok, lásd a képernyőképet:
3. Az Kombinálja a sorokat az oszlop alapján párbeszédpanelen kattintson az oszlop nevére, amelyről el szeretné távolítani az ismétlődő értékeket, majd kattintson a gombra Elsődleges kulcs, lásd a képernyőképet:
4. Kattintson egy másik oszlop nevére, amelyet meg szeretne tartani a legfrissebb dátummal, majd kattintson a gombra Számít > max, lásd a képernyőképet:
5. Kattintson a gombra Ok gombra kattintva bezárhatja ezt a párbeszédpanelt, és most láthatja, hogy az A oszlopban található duplikált nevek eltávolításra kerültek, és csak a megfelelő B oszlopban tartja meg a legújabb dátumot, lásd a képernyőképet:
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Demo: Távolítsa el az ismétlődő értékeket, és tartsa a legutóbbi dátumot egy másik oszlopban a Kutools for Excel segítségével
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
