Sut i gael gwared ar resi dyblyg ond cadw'r un gyda'r dyddiad diweddaraf yn Excel?
Mae gen i ystod o ddata sy'n cynnwys rhai gwerthoedd dyblyg yng ngholofn A, ac yng ngholofn B mae ganddo ryw ddyddiad, nawr, mae angen i mi gael gwared ar y rhesi dyblyg yng ngholofn A ond cadw'r dyddiad diweddaraf o golofn B gyfatebol fel y dangosir y screenshot canlynol. , a oes gennych unrhyw syniadau da i ddatrys y broblem hon yn Excel yn gyflym ac yn hawdd?
Tynnwch y gwerthoedd dyblyg a chadwch y dyddiad mwyaf diweddar mewn colofn arall gyda chod VBA
Dileu gwerthoedd dyblyg a chadw'r dyddiad diweddaraf mewn colofn arall gyda Kutools for Excel
Tynnwch y gwerthoedd dyblyg a chadwch y dyddiad mwyaf diweddar mewn colofn arall gyda chod VBA
Efallai y bydd y cod VBA canlynol yn eich helpu i gael gwared ar y celloedd dyblyg a chadw'r dyddiad diweddaraf o golofn arall, gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y macro canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnwch y gwerthoedd dyblyg a chadwch y dyddiad mwyaf diweddar
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. Yna, pwyswch F5 allwedd i weithredu'r cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei defnyddio, gweler y screenshot:
4. Ac yna cliciwch OK, mae'r gwerthoedd dyblyg yng ngholofn A wedi'u dileu ac mae'r dyddiad diweddaraf yng ngholofn B yn cael ei gadw yn ôl yr angen. Gweler y screenshot:
Nodyn: I gymhwyso'r cod uchod yn llwyddiannus, mae'r golofn yn cynnwys rhaid gosod gwerthoedd dyblyg ar ochr chwith y golofn dyddiad.
Dileu gwerthoedd dyblyg a chadw'r dyddiad diweddaraf mewn colofn arall gyda Kutools for Excel
Os nad ydych chi'n gyfarwydd â'r cod, peidiwch â phoeni, y cyfleustodau pwerus- Rhesi Cyfuno Uwch of Kutools for Excel gall eich helpu i ddatrys y dasg hon yn rhwydd.
| Kutools for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for Excel, gwnewch fel a ganlyn:
1. Dewiswch yr ystod ddata rydych chi am gael gwared â dyblygu a chadwch y dyddiad mwyaf diweddar o golofn arall.
2. Yna cliciwch Kutools > Uno a Hollti > Rhesi Cyfuno Uwch, gweler y screenshot:
3. Yn y Cyfuno Rhesi Yn Seiliedig ar Golofn blwch deialog, cliciwch enw'r golofn rydych chi am gael gwared â'r gwerthoedd dyblyg, yna cliciwch Allwedd gynradd, gweler y screenshot:
4. Ewch ymlaen i glicio enw colofn arall rydych chi am gadw'r dyddiad mwyaf diweddar, ac yna cliciwch Cyfrifwch > Max, gweler y screenshot:
5. Ac yna cliciwch Ok botwm i gau'r ymgom hwn, ac yn awr, gallwch weld bod yr enwau dyblyg yng ngholofn A wedi'u dileu a dim ond cadw'r dyddiad diweddaraf yng ngholofn B gyfatebol, gweler y screenshot:
Dadlwythwch a threial am ddim Kutools for Excel Nawr!
Demo: Dileu gwerthoedd dyblyg a chadw'r dyddiad diweddaraf mewn colofn arall gyda Kutools for Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
