Sut i ddileu gwerthoedd unigryw o golofn yn Excel?
Fel arfer, mae'r rhan fwyaf ohonom eisiau tynnu gwerthoedd dyblyg o golofn, ond weithiau, efallai yr hoffech chi gael gwared ar y gwerthoedd unigryw sy'n ymddangos unwaith yn unig yn y golofn. Mae'r tiwtorial hwn yn sôn am y triciau i chi dynnu gwerthoedd unigryw yn unig o golofn yn Excel.
Dileu gwerthoedd unqiue gyda VBA yn Excel
Dileu gwerthoedd unqiue gyda Kutools ar gyfer Excel
Dileu gwerthoedd unqiue gyda VBA yn Excel
Gall defnyddio VBA ddileu'r holl werthoedd unigryw o un golofn yn gyflym.
1. Gwasgwch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch y cod VBA canlynol i mewn i ffenestr y modiwl.
VBA: Dileu gwerthoedd unigryw o golofn.
Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
xValue = Arr(i, 1)
Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
xValue = Dic(xKey)
If xValue > 1 Then
For i = 1 To xValue
Arr(xIndex, 1) = xKey
xIndex = xIndex + 1
Next
End If
Next
WorkRng.Value = Arr
End Sub
3. Cliciwch Run botwm i redeg y cod VBA, ac a Kutoolsorexcel deialog yn galw allan am ddewis ystod i weithio. Gweler y screenshot:
4. Cliciwch OK, ac mae'r holl werthoedd unigryw yn cael eu dileu.
Dileu gwerthoedd unqiue gyda Kutools ar gyfer Excel
Os nad ydych chi'n gyfarwydd â VBA, gallwch chi ystyried defnyddio Kutools ar gyfer Excel's Dewiswch Duplicate & Unique Cells nodwedd i gael gwared ar y gwerthoedd unigryw yn Excel.
Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now
1. Dewiswch y golofn rydych chi am ddileu'r gwerthoedd unigryw ohoni, a chlicio Kutools > Dewiswch Offer > Dewiswch Gelloedd Dyblyg ac Unigryw. Gweler y screenshot:
2. Yn y dialog pop-out, gwiriwch Gwerthoedd unigryw yn unig a chliciwch Ok, ac yna gadewch y dialog hwn. Gweler y screenshot:
3. Yna mae'r holl werthoedd yn ymddangos dim ond un amser sydd wedi'u dewis. A de-gliciwch i glicio Dileu yn y ddewislen cyd-destun. Gweler y screenshot:
4. Yn y Dileu deialog, gwiriwch y rhes Gyfan, a chlicio OK. Gweler y screenshot:
Nawr gallwch weld bod y gwerthoedd unigryw yn cael eu dileu.
Tip: Os ydych chi am gael gwared â chynnwys y gell yn unig, gallwch glicio Cynnwys Clir o'r ddewislen cyd-destun yng ngham 3.
Gallwch glicio yma i wybod mwy o wybodaeth am Select Duplicate & Unique Cells.
Erthyglau Perthynas:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!