Note: The other languages of the website are Google-translated. Back to English

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

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • 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.

swigen dde glas saeth 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 KutoolsforExcel deialog yn galw allan am ddewis ystod i weithio. Gweler y screenshot:

 

doc-delete-unigryw-1

4. Cliciwch OK, ac mae'r holl werthoedd unigryw yn cael eu dileu.


swigen dde glas saeth 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:

doc-delete-unigryw-2

2. Yn y dialog pop-out, gwiriwch Gwerthoedd unigryw yn unig a chliciwch Ok, ac yna gadewch y dialog hwn. Gweler y screenshot:

doc-delete-unigryw-3

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:

doc-delete-unigryw-4

4. Yn y Dileu deialog, gwiriwch y rhes Gyfan, a chlicio OK. Gweler y screenshot:

doc-delete-unigryw-5

Nawr gallwch weld bod y gwerthoedd unigryw yn cael eu dileu.

doc-delete-unigryw-6 doc-saeth doc-delete-unigryw-7

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.
tab kte 201905

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!
gwaelod officetab
sylwadau (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddai un yn tweakio'r cod VBA i ddileu'r rhes gyfan yn seiliedig ar werth unigryw un maes yn unig? Mae'r Kutools ar gyfer Excel yn caniatáu dileu'r rhes gyfan, ond mae'r cod yn dileu'r gwerthoedd unigryw yn unig o un maes. Diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n achubwr bywyd. Dduw bendithia chi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw cod VBA yn gweithio .... Rwy'n defnyddio'r opsiwn yn benodol ac er fy mod yn Dim xValue as Variant, yn cadw dweud y newidyn heb ei ddiffinio. Byddwn i'n dweud nad yw 80% da o'r cod wedi'i gopïo o'r rhwyd ​​yn gweithio ar yr ergyd gyntaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n wych! Diolch! Yr unig broblem yw nad yw'n ymestyn y dewis i ddileu'r rhes gyfan. Ond mae'n gweithio. Diolch.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL