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
- Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
- Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
- Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
- Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
- Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
- Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
- Mwy na 300 o nodweddion pwerus; Yn gweithio gydag Office 2007-2021 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.
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
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 ystyried defnyddio Kutools ar gyfer nodwedd Dewis Celloedd Dyblyg ac Unigryw Excel 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:
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
