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
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.
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:
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.
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:
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:
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.
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!
