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

Sut i gael gwared ar nodau neu eiriau dyblyg mewn llinyn o gell?

Gan dybio bod nodau neu eiriau dyblyg ym mhob cell, a'ch bod am gael gwared ar y dyblygu a gadael cymeriadau neu eiriau unigryw yn unig. Sut allech chi ddatrys y broblem hon yn Excel?

Tynnwch nodau dyblyg llinyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr

Tynnwch eiriau dyblyg wedi'u gwahanu gan atalnodi â Swyddogaeth Diffiniedig Defnyddiwr


swigen dde glas saeth Tynnwch nodau dyblyg llinyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr

Os oes gennych chi restr o linyn testun, nawr, mae angen i chi gael gwared ar y nodau dyblyg fel y llun a ganlyn a ddangosir. Yma, gallaf siarad am god VBA i ddelio ag ef.

doc-remove-duplicate-character-1

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Tynnwch nodau dyblyg llinyn testun mewn cell

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

3. Yna arbed a chau'r cod hwn, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon = removedupes1 (A2) (A2 yw'r gell ddata rydych chi am dynnu dyblygu ohoni) i mewn i gell wag ar wahân i'ch data, gweler y screenshot:

doc-remove-duplicate-character-1

4. Ac yna llusgwch y handlen llenwi drosodd i'r celloedd amrediad rydych chi am gymhwyso'r fformiwla hon, mae'r holl nodau dyblyg wedi'u tynnu o bob cell ar unwaith.

doc-remove-duplicate-character-1


swigen dde glas saeth Tynnwch eiriau dyblyg wedi'u gwahanu gan atalnodi â Swyddogaeth Diffiniedig Defnyddiwr

Os oes rhai geiriau sydd wedi'u gwahanu gan farciau atalnodi penodol mewn cell, gallwch hefyd gael gwared ar y geiriau dyblyg fel y dymunwch. Gwnewch y camau canlynol:

1. Dal i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Tynnwch eiriau dyblyg wedi'u gwahanu gan atalnodi cell

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

3. Yna arbed a chau'r cod hwn, dychwelyd i'r daflen waith, a nodi'r fformiwla hon = RemoveDupes2 (A2, ",") i mewn i gell wag wrth ymyl eich data, gweler y screenshot:

doc-remove-duplicate-character-1

4. Yna copïwch y fformiwla i'ch celloedd angenrheidiol, ac mae'r holl eiriau dyblyg wedi'u tynnu o bob cell. Gweler y screenshot:

doc-remove-duplicate-character-1

Nodyn: Yn y fformiwla uchod, A2 yn nodi'r gell rydych chi am ei defnyddio, ac mae'r coma (,) yn sefyll am y marc atalnodi sy'n gwahanu'r geiriau mewn cell, gallwch ei newid i unrhyw atalnodau eraill i'ch angen.


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 (66)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dal i dorri ... ddim yn dangos dim byd mewn gwirionedd. Dyma fy data cell: 27000, Sylfaenol, Cynhyrchion, Deunyddiau, O, Pren, Cerrig, Pridd, Amrwd, Deunyddiau, 27100, Sylfaenol, Coedwig, Cynhyrchion, Cyffredinol, 27110, Sylfaenol, Coedwig, Cynhyrchion, Melin lifio, Cynhyrchion, 27120 , Coedwig, Cynhyrchion, Pren, Mwydion, 27200, Gwydr Yn amlwg mae gan rai dupes yno. Yn gadael y gell yn wag. Syniadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heb feddwl, dwi'n fud. Gan mai dim ond geiriau yr oeddwn am eu tynnu fe wnes i ailenwi'r modiwl RemoveDupes, ond wnes i ddim newid y RemoveDupes yn ddiweddarach yn y cod. Hunan sefydlog, smacio gyda morthwyl....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A chyfunais RemoveDupes gyda ConCat (y daioni VBA, nid CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE) i mewn i hyn: =RemoveDupes(ConCat(",",G495:G502),",") felly tynnodd fy nghelloedd i mewn ac yna dileu pob un o'r twyllwyr. Diolch am y RemoveDupes, dyma ConCat: Swyddogaeth ConCat(Amffinydd Fel Amrywiad, ParamArray CellRanges() Fel Amrywiad) Fel Llinyn Dim Cell Fel Ystod, Arwynebedd Fel Amrywiad Os Ar Goll(Amffinydd) Yna Amffinydd =" Ar gyfer Pob Ardal Mewn CellRanges Os MathName( Arwynebedd) = "Ystod" Yna Ar gyfer Pob Cell Mewn Arwynebedd Os Len(Cell.Value) Yna ConCat = ConCat & Amffinydd & Cell.Gwerth Nesaf Arall ConCat = ConCat & Amffinydd & Diwedd Arwynebedd Os Nesaf ConCat = Canolbarth(ConCat, Len(Amffinydd) ) + 1) Swyddogaeth Diwedd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais eich ateb "Dileu geiriau dyblyg wedi'u gwahanu gan atalnodi gyda Swyddogaeth Diffiniedig Defnyddiwr" ac mae'n gweithio'n wych ar gyfer geiriau lluosog mewn cell OND nid yw'n datrys fy mhroblem yn llwyr. Mae gen i un gell sydd â gwerthoedd lluosog ac rydw i eisiau cymharu yn erbyn cell arall gyda gwerthoedd lluosog ac yna cael gwared ar y dyblygiadau sy'n bodoli rhwng y ddwy gell. A oes ffordd i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yr un peth yma pls help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a yw'r llinyn hwn yn dal yn fyw? Byddwn yn gwerthfawrogi rhywfaint o fewnwelediad â'r swyddogaeth VBA hon yn fawr .. mae'n rhaid i fy nghwestiynau ymwneud â'r cod, lle os o gwbl mae angen i mi ei gyfarwyddo i ddod o hyd i'r atalnodi penodol fel y amffinydd ... pe bawn i'n defnyddio "@" fel yr atalnodi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae eich cyngor yn anhygoel! Fe wnes i ddidoli 58,400 o gofnodion mewn tua 2 funud ac arbed wythnos (neu fwy) o waith. Roedd fy nyblygiadau ychydig yn galetach i droi'r enghraifft hon " V&O Liquid Fuel Lantern 13-1/2in blk fuel llusern " i mewn i'r " Llusern Tanwydd Hylif V&O 13-1/2in blk " hon diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, os gwelwch yn dda mae angen eich help arnaf, ceisiais eich cod ond ni weithiodd, efallai oherwydd bod gen i rifau mae gen i rifau ffôn dyblyg wedi'u gwahanu gan atalnodau Dywedwch wrthyf beth i'w wneud Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yr un peth yma pls help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
BRILLIANT diolch! Diolch! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych, diolch!.....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hy dude fi angen eich help. Beth ddylwn i ei wneud os ydw i eisiau tynnu'r copi dyblyg? Yn A1 (asdfghjiklkk) Felly k yw cymeriad dyblyg rydw i eisiau A2 (k) beth ddylwn i ei wneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl addasu'r swyddogaeth os oes gair penodol yr wyf am ei ddyblygu tra nad yw'r gweddill yn cael eu dyblygu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn union fel arbed diolch gymaint am y canllaw hwn, arbedodd lawer o waith i mi! :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn ddefnyddiol iawn. Rwyf wedi rhoi cynnig arno ac mae'n gweithio i mi fel eithriad. Ardderchog!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn ddatrysiad anhygoel a syml i ddod o hyd i ymadroddion dyblyg o fewn un gell, yn llawer haws na rhai o'r atebion macro hirwyntog a ddarganfyddais wrth chwilio am ateb i'm problem, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod hwn - fe arbedodd tunnell o amser i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i ddata fel 1. yn dangos isod mewn cell sengl ac rydw i eisiau hoffi 2. 1. ZERPUR, MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16),MAHENDRAGARH, HARYANA-123029 angen hwn fel :- ZERPUR, MAHENDRAGARH, HARYANA-30771237, 8813073653, 123029 Diolch a Cofion Hanuman Singh 30771237
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dysgwch i mi sut? angen ei wybod hefyd..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
allwn ni ddarganfod lleoliad y llythyren fach 1af


Arholiad - RAMSHsJHSAhsjDDD ------ Rwyf eisiau gwybod lleoliad y llythyren fach 1af fesul fformiwla = s
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Meharban,
Gallwch gymhwyso'r fformiwla arae ganlynol i gael lleoliad y llythyren fach gyntaf:
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
Cofiwch bwyso Ctrl + Shift + Enter gyda'ch gilydd.


Gobeithio y gall eich helpu, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo skyyang

mae'n gweithio'n iawn .....
mewn gwirionedd roeddwn i eisiau'r un peth ..

Diolch yn fawr !!


Meharban singh pal
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i gael gwared ar ddyblygiadau llinynnol cyfatebol ... a allwch chi ddweud wrthyf


Regards,
Kiran
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Kiran,
Allwch chi roi enghraifft o'ch problem? Neu gallwch fewnosod delwedd atodiad.
Edrych ymlaen at eich ateb!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr, mae'n fy helpu mwy. Ond rydw i eisiau mwy penodol ar gyfer fy set ddata.
Mae gen i ddata dwy Golofn. ID a Gwybodaeth. Mewn Colofn Wybodaeth, mae id prosiect fesul cell fel "Kant-, Udp-, Akr- ac ati" yn cael eu hailadrodd. Ar gyfer fy set ddata mae'r project_id yn fwy na 15 ac mae'n sefydlog. Felly rwyf am ddileu'r repeated_id o'r gell ond cadw'r un cyntaf.
Enghraifft: Kant-526 (0.0287),Kant-527 (0.0113),Kant-528 (0.0262) /// Kant-526 (0.0287),527 (0.0113),528 (0.0262),
Kant-543 (0.0685),Kant-544 (0.0685),Udp-097 (0.0141) /// Kant-543 (0.0685),544 (0.0685),Udp-097 (0.0141)

Mae delwedd enghreifftiol wedi'i hatodi yma. A oes unrhyw ateb i hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Imran,
Mae'n ddrwg gennyf am beidio â datrys eich problem, os oes gan unrhyw un y syniad da, rhowch sylwadau yma.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i ateb ar fy mhen fy hun. Rwyf wedi defnyddio fformiwla SUBSTITUTE yma, ond mae'n rhy fawr ar gyfer fy nata. felly ailadroddwch ddwy neu dair gwaith i gael y canlyniad cywir.

=SUBSTITUTE(SUBSTITUTE("Kant-",,"",2), ("Kant-",,"",2)
Yma, 1af 2 am ail Kant- amnewid ac ar gyfer nesaf pob Kant- tynnu dim ond ychwanegu ("Kant-",,"",2) ychwanegol. Mae'n gweithio i mi. Ond mae'n well gen i VBA da.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod.

Allwch chi fy helpu os gwelwch yn dda? Rwy'n defnyddio'r swyddogaeth macro i ddileu geiriau sydd wedi'u gwahanu gan atalnodi cell, fodd bynnag nid yw fy data yn eiriau ymadroddion mewn gwirionedd. Fel yn lle "KTE, KTO, KTW, KTO" mewn gwirionedd mae disgrifiadau byr fel "paratoi bil, adolygu fy e-byst, diweddaru'r contractau, adolygu fy e-byst".

A fyddai'n bosibl diweddaru'r VBA i ddileu ymadroddion dyblyg yn lle geiriau?

Diolch yn fawr, bydd hyn yn ddefnyddiol iawn mewn gwirionedd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Alonso,
I gael gwared ar gymal dyblyg, efallai y bydd y Swyddogaeth Ddiffiniedig Defnyddiwr ganlynol yn eich helpu chi, rhowch gynnig arni.

Swyddogaeth RemoveDuplicateValue(xStr Fel Llinynnol, xDelim Fel Llinynnol) Fel Llinynnol
Dim xGwerth
Os (Len(xDelim) > 0) A (Len(Trim(xStr))) > 0) Yna
Gyda CreateObject ("Scripting.Dictionary")
Ar gyfer Pob xGwerth Mewn Hollt(xStr, xDelim)
If Trim(xValue) <> "" Ac Ddim yn .exists(Trim(xValue)) Yna .Ychwanegu Trim(xValue), Dim
Digwyddiadau
Os .Count > 0 Yna RemoveDuplicateValue = Ymuno(.keys, xDelim)
Diwedd Gyda
arall
RemoveDuplicateValue = xStr
Gorffennwch Os
Swyddogaeth End

Yna cymhwyswch y fformiwla hon: =RemoveDuplicateValue(A2,","), newidiwch y gwahanydd , i'ch un chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo skyyang,



Rwy'n gobeithio cael rhywfaint o help gyda'r gell ganlynol:

PR-PUERTO RICO; Unol Daleithiau-Gwladwriaethau Unedig; Unol Daleithiau-UNEDIG

Mae angen i mi gael gwared ar y dyblyg US-UNITED STATES gan na fydd fy hofferyn llwytho i fyny yn caniatáu ar gyfer copïau dyblyg.



Defnyddiais y VBA uchod a disodli fy amffinydd fformiwla gyda ";". A yw'r cysylltnod yn achosi problem i hyn? Mae'n dychwelyd #NAME? pryd bynnag y byddaf yn rhedeg y fformiwla. Rwy'n newydd i macros / VBA ond fe wnes i'n siŵr bod y ffeil wedi'i chadw fel ffeil wedi'i galluogi gan Macro. Ceisiais yn fawr ddilyn y rhain i'r T.


Diolch i chi am yr holl wybodaeth sydd eisoes yn wych gan ei fod wedi helpu gyda phrosiect arall y bu'n rhaid i mi ei gwblhau hefyd a gwerthfawrogir unrhyw beth ychwanegol yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Michael,
A ydych yn bwriadu tynnu pob ymadrodd dyblyg o gell, a gadael y rhai unigryw yn unig?
Edrych ymlaen at eich ateb!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'r allbwn rydw i'n edrych amdano:

Cyfredol: PR-PUERTO RICO; Unol Daleithiau-Gwladwriaethau Unedig; Unol Daleithiau-UNEDIG
Yn ddymunol: PR-PUERTO RICO; Unol Daleithiau-UNEDIG

Gobeithio bod hyn yn gwneud synnwyr a diolch yn fawr iawn am yr ateb cyflym.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Michael,
Mae angen i chi gymhwyso'r cod isod, ac yna defnyddio'r fformiwla hon: =RemoveDuplicateValue(A2,";"). Ceisiwch, gobeithio y gall eich helpu!

Swyddogaeth RemoveDuplicateValue(xStr Fel Llinynnol, xDelim Fel Llinynnol) Fel Llinynnol
Dim xGwerth
Os (Len(xDelim) > 0) A (Len(Trim(xStr))) > 0) Yna
Gyda CreateObject ("Scripting.Dictionary")
Ar gyfer Pob xGwerth Mewn Hollt(xStr, xDelim)
If Trim(xValue) <> "" Ac Ddim yn .exists(Trim(xValue)) Yna .Ychwanegu Trim(xValue), Dim
Digwyddiadau
Os .Count > 0 Yna RemoveDuplicateValue = Ymuno(.keys, xDelim)
Diwedd Gyda
arall
RemoveDuplicateValue = xStr
Gorffennwch Os
Swyddogaeth End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn. Roedd mwy o groeso i'ch ymateb na fy nghwpanaid o goffi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mae hyn yn ddefnyddiol iawn
Ond rydw i eisiau dileu geiriau cyfan ar ôl "NA TO:"

ee: NA I: [C11bx1]

NA I: [C11bx3] fel hyn
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
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