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

Conas carachtair nó focail dhúblacha a bhaint i sreangán cille?

Má cheaptar go bhfuil carachtair nó focail dhúblacha i ngach cill, agus gur mhaith leat na dúbailtí a bhaint agus gan ach carachtair nó focail uathúla a fhágáil. Conas a d’fhéadfá an fhadhb seo a réiteach in Excel?

Bain carachtair dhúblacha de shreang téacs le Feidhm Sainithe ag an Úsáideoir

Bain focail dhúblacha scartha le poncaíocht le Feidhm Sainithe ag an Úsáideoir


mboilgeog cheart gorm saighead Bain carachtair dhúblacha de shreang téacs le Feidhm Sainithe ag an Úsáideoir

Má tá liosta de shreangán téacs agat, anois, ní mór duit na carachtair dhúblacha a bhaint mar a leanas an pictiúr a thaispeántar. Anseo, is féidir liom labhairt faoi chód VBA chun déileáil leis.

doc-bain-dúblach-carachtair-1

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Bain carachtair dhúblacha de shreangán téacs i gcill

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. Ansin sábháil agus dún an cód seo, téigh ar ais chuig an mbileog oibre, agus cuir isteach an fhoirmle seo = removedupes1 (A2) (A2 an cill sonraí ar mhaith leat dúbailtí a bhaint aisti) i gcill bhán seachas do chuid sonraí, féach an scáileán:

doc-bain-dúblach-carachtair-1

4. Agus ansin tarraing an láimhseáil líonta chuig na cealla raon a theastaíonn uait an fhoirmle seo a chur i bhfeidhm, baineadh na carachtair dhúblacha go léir as gach cill láithreach.

doc-bain-dúblach-carachtair-1


mboilgeog cheart gorm saighead Bain focail dhúblacha scartha le poncaíocht le Feidhm Sainithe ag an Úsáideoir

Má tá focail áirithe ann atá scartha le marcanna poncaíochta áirithe i gcill, is féidir leat na focail dhúblacha a bhaint mar is mian leat. Déan na céimeanna seo a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Bain focail dhúblacha scartha le poncaíocht cille

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. Ansin sábháil agus dún an cód seo, filleadh ar an mbileog oibre, agus cuir isteach an fhoirmle seo = RemoveDupes2 (A2, ",") isteach i gcill bhán in aice le do chuid sonraí, féach an scáileán:

doc-bain-dúblach-carachtair-1

4. Ansin cóipeáil síos an fhoirmle chuig na cealla atá uait, agus baineadh na focail dhúblacha go léir as gach cealla. Féach an pictiúr:

doc-bain-dúblach-carachtair-1

nótaí: San fhoirmle thuas, A2 léiríonn sé an chill is mian leat a úsáid, agus seasann an camóg (,) don mharc poncaíochta a scarann ​​na focail i gcill, is féidir leat é a athrú go dtí aon phoncaíocht eile ar do riachtanas.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (66)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fós bhris ... ní léiríonn sé rud ar bith i ndáiríre. Seo mo shonraí cille: 27000, Bunúsach,Táirgí,Ábhair,Ó,Adhmad,Cloch,Earthen,Amh,Ábhair,27100,Bunús,Foraois,Táirgí,Ginearálta,27110,Bunúsach,Foraois,Táirgí,Muileannsábhadóireachta,Áirgí,27120 ,Foraois, Táirgí, Adhmad, Laíon, 27200, Gloine Is léir go bhfuil roinnt dupes ann. Fágann sé an chill folamh. Smaointe?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Gan chuimhneamh, tá mé balbh. Toisc nár theastaigh uaim ach focail a tharraingt, d'athainmnigh mé an modúl RemoveDupes, ach níor athraigh mé an RemoveDupes níos déanaí sa chód. Seasta, smacking féin le casúr....
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Agus chomhcheangail mé RemoveDupes le ConCat (an mhaitheas VBA, ní CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE) isteach anseo: =RemoveDupes(ConCat(",",G495:G502),",") mar sin tharraing sé mo chealla isteach agus ansin wiped gach ceann de na dupes amach. Go raibh maith agat as na RemoveDupes, seo é ConCat: Feidhm ConCat(Teorainnteoir Mar Athraitheach, ParamArray CellRanges() Mar Athraitheach) Mar Teaghrán Cill Dim Mar Raon, Achar Mar Athróg Má Ar Iarraidh(Teorainnteoir) Ansin Teorainneora ="" Do Gach Réimse I gCeallRanganna Más CineálName( Achar) = "Raon" Ansin Do Gach Ceall Sa Achar Más Len(Cell.Value) Ansin ConCat = ConCat & Teorainneora & Cill.Luach Eile ConCat = ConCat & Teorainneora & Críoch Achar Más Ar Aghaidh ConCat = Lár(ConCat, Len( Teorainneoir ) + 1) Feidhm Deiridh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhain mé triail as do réiteach "Bain focail dhúbailte scartha le poncaíocht le Feidhm Shainithe Úsáideora" agus oibríonn sé go hiontach d'ilfhocail i gcill ACH ní réitíonn sé m'fhadhb go hiomlán. Tá cill amháin agam a bhfuil luachanna iolracha agam agus ba mhaith liom comparáid a dhéanamh le cill eile le luachanna iolracha agus ansin iarr orm na dúblaigh atá idir an dá chealla a bhaint. An bhfuil bealach ann chun é sin a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
céanna anseo pls cabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhfuil an snáithe seo fós beo? Bheinn an-bhuíoch as léargas éigin leis an bhfeidhm VBA seo .. baineann mo chuid ceisteanna leis an gcód, agus más rud é ar chor ar bith is gá dom treoir a thabhairt dó an poncaíocht shonrach a aimsiú mar an teorannóir .. dá mba rud é go n-úsáidfinn "@" mar na ponca?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá do chomhairle iontach! Sórtáil mé 58,400 taifead i thart ar 2 nóiméad agus shábháil seachtain amháin (nó níos mó) oibre. Bhí mo chuid macasamhail beagán níos deacra ag casadh an sampla seo " V&O Lantern Breosla Leachtach 13-1/2in blk fuel laindéir " isteach sa " Lantern Breosla Leachtach V&O 13-1/2in blk " go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, le do thoil tá do chabhair ag teastáil uaim, bhain mé triail as do chód ach níor oibrigh sé, b'fhéidir toisc go bhfuil uimhreacha agam tá uimhreacha teileafóin dúblacha agam scartha le camóga Inis dom cad atá le déanamh Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
céanna anseo pls cabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
BRILLIANT go raibh maith agat! go raibh maith agat! go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Iontach, go raibh maith agat!.....
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hy dude tá do chabhair ag teastáil uaim. Cad ba cheart dom a dhéanamh má theastaíonn uaim an dúblach a bhaint? In A1 (asdfghjiklkk) Mar sin is carachtar dúblach é k uaim A2 (k) cad ba cheart dom a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir an fheidhm a choigeartú má tá focal áirithe ann ba mhaith liom a choinneáil faoi dhó agus nach bhfuil an chuid eile á ndúbláil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Díreach mar a shábháil buíochas an oiread sin as an treoir seo, shábháil mé a lán oibre! :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo an-chabhrach. Tá iarracht déanta agam air agus oibríonn sé dom mar rud eiscthe. Ar fheabhas!!!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is réiteach iontach simplí é seo chun frásaí dúblacha a aimsiú laistigh d’aon chill amháin, i bhfad níos éasca ná cuid de na réitigh macra fadraoin a d’aimsigh mé agus mé ag lorg freagra ar m’fhadhb, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an gcód seo - shábháil sé tonna ama dom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sonraí cosúil le 1. taispeáin thíos agam i gcill singil agus ba mhaith liom 2. 1. ZERPUR, MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16),MAHENDRAGARH, HARYANA-123029, gá seo I 30771237 cosúil le :- ZERPUR, MAHENDRAGARH, HARYANA-8813073653, 123029, 30771237 Go raibh maith agat & le dea-mhéin Hanuman Singh 8813073653
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
mhúineadh dom conas? gá go mbeadh a fhios aige freisin ..
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an féidir linn suíomh na litreach 1ú cás íochtair a fháil amach


Scrúdú - RAMSHsJHSAhsjDDD ------ Ba mhaith liom eolas a fháil ar shuíomh na 1ú litir bhig de réir foirmle = s
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Mheárban,
Is féidir leat an fhoirmle eagair seo a leanas a chur i bhfeidhm chun suíomh na chéad litreach cás íochtair a fháil:
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
Cuimhnigh le do thoil brúigh Ctrl + Shift + Iontráil eochracha le chéile.


Tá súil agam gur féidir leis cabhrú leat, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit skyyang

tá sé ag obair i gceart .....
i ndáiríre bhí mé ag iarraidh an rud céanna ..

Go raibh míle maith agat !!


Meharban singh cara
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a bhaint as dúbailt teaghrán comhoiriúnaithe ... an féidir pls insint dom


mhéin,
Kiran
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Kiran,
An féidir leat sampla a thabhairt de d’fhadhb? Nó is féidir leat íomhá ceangaltáin a chur isteach.
Breathnú ar aghaidh le do fhreagra!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat, cuidíonn sé níos mó liom. Ach ba mhaith liom níos mó ar leith do mo thacair sonraí.
Tá sonraí dhá Cholún agam. ID agus Eolas. Colún Faisnéise, in aghaidh na cille tionscadail-ID cosúil le "Kant-, Udp-, Akr- srl" a athdhéanamh. Do mo thacar sonraí tá an project_id níos mó ná 15 agus tá sé socraithe. Mar sin ba mhaith liom an repeated_id a scriosadh as cill ach an chéad cheann a choinneáil.
Sampla: 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)

Tá íomhá shamplach ceangailte anseo. An bhfuil aon réiteach ar seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Imran,
Ár leithscéal as gan d’fhadhb a réiteach, má tá an smaoineamh maith ag éinne, déan trácht anseo le do thoil.
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá réiteach agam féin. D'úsáid mé foirmle SUBSTITUTE anseo, ach tá sé ró-mhór do mo chuid sonraí. mar sin déan arís é dhá nó trí huaire chun an toradh ceart a fháil.

=SUBSTITUTE(SUBSTITUTE("Kant-",,"",2), ("Kant-",,"",2)
Anseo, 1ú 2 don dara Kant- athsholáthair agus don chéad cheann eile Kant- a bhaint ach cuir ("Kant-",,"",2) breise. Tá sé ag obair domsa. Ach is fearr liom VBA maith.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an gcód.

An féidir leat cabhrú liom le do thoil? Tá mé ag baint úsáide as an fheidhm macra a bhaint focail scartha le poncaíocht cill, áfach, nach bhfuil mo shonraí focail i ndáiríre frásaí. Cosúil le ionad "KTE, KTO, KTW, KTO" i ndáiríre tá cur síos gearr cosúil le "ullmhú bille, athbhreithniú a dhéanamh ar mo ríomhphoist, nuashonraigh na conarthaí, athbhreithniú a dhéanamh ar mo ríomhphoist".

An mbeadh sé indéanta an VBA a nuashonrú chun frásaí dúblacha a bhaint in ionad focail?

Míle buíochas, beidh sé seo fíor-chabhrach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Alonso,
Chun frása dúblach a bhaint, d'fhéadfadh an Fheidhm Shainithe Úsáideora seo a leanas cabhrú leat, bain triail as.

Feidhm RemoveDuplicateValue(xStr As Teaghrán, xDelim Mar Teaghrán) Mar Teaghrán
Dim xLuach
Más rud é (Len(xDelim) > 0) Agus (Len(Trim(xStr))) > 0) Ansin
Le CreateObject("Scripting.Dictionary")
Do Gach xLuach I Scoilt(xStr, xDelim)
Má tá Baile Átha Troim(xValue) <> "" Agus Níl .ann (Trim(xValue)) Ansin .Cuir Baile Átha Troim(xValue), Ní dhéanfaidh aon ní
Ar Aghaidh
Má .Count > 0 Ansin RemoveDuplicateValue = Glac páirt (. eochracha, xDelim)
Deireadh Le
Eile
RemoveDuplicateValue = xStr
Deireadh Má
Feidhm Deireadh

Ansin cuir an fhoirmle seo i bhfeidhm: =RemoveDuplicateValue(A2,","), athraigh an deighilteoir , chuig do chuid féin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit skyyang,



Tá súil agam roinnt cabhrach a fháil leis an gcill seo a leanas:

PR-PUERTO RICO; SAM-STÁIT AONTAITHE mheiriceá; SAM-STÁIT AONTAITHE mheiriceá

Ní mór dom an dúblach US-STÁT STÁIT a bhaint mar ní cheadóidh m’uirlis uaslódála dúblaigh.



Bhain mé úsáid as an VBA thuas agus chuir mé ";" in ionad mo theorannóir foirmle. An bhfuil an fleiscín ina chúis leis seo? Filleann sé #NAME? aon uair a ritheann mé an fhoirmle. Is macraí/VBA nua mé ach chinntigh mé gur sábháladh an comhad mar chomhad Macra Cumasaithe. Rinne mé iarracht i ndáiríre iad seo a leanúint chuig an T.


Go raibh maith agat as an eolas iontach seo ar fad cheana féin mar chuidigh sé le tionscadal eile a bhí le déanamh agam freisin agus is mór againn aon rud breise.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Mhichíl,
An bhfuil sé i gceist agat gach frása dúblach a bhaint as cill, agus gan ach na cinn uathúla a fhágáil?
Táim ag tnúth le do fhreagra!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo an t-aschur atá á lorg agam:

Reatha: PR-PUERTO RICO; SAM-STÁIT AONTAITHE mheiriceá; SAM-STÁIT AONTAITHE mheiriceá
Ag teastáil: PR-PUERTO RICO; SAM-STÁIT AONTAITHE mheiriceá

Tá súil agam go bhfuil ciall leis seo agus go raibh míle maith agat as an bhfreagra tapa.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Mhichíl,
Níl le déanamh agat ach an cód thíos a chur i bhfeidhm, agus an fhoirmle seo a úsáid ansin: =RemoveDuplicateValue(A2,";"). Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!

Feidhm RemoveDuplicateValue(xStr As Teaghrán, xDelim Mar Teaghrán) Mar Teaghrán
Dim xLuach
Más rud é (Len(xDelim) > 0) Agus (Len(Trim(xStr))) > 0) Ansin
Le CreateObject("Scripting.Dictionary")
Do Gach xLuach I Scoilt(xStr, xDelim)
Má tá Baile Átha Troim(xValue) <> "" Agus Níl .ann (Trim(xValue)) Ansin .Cuir Baile Átha Troim(xValue), Ní dhéanfaidh aon ní
Ar Aghaidh
Má .Count > 0 Ansin RemoveDuplicateValue = Glac páirt (. eochracha, xDelim)
Deireadh Le
Eile
RemoveDuplicateValue = xStr
Deireadh Má
Feidhm Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat. Bhí níos mó fáilte roimh do fhreagra ná mo chupán caife!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit tá sé seo fíor cabhrach
Ach ba mhaith liom na focail iomlána a bhaint tar éis "NÍ GÁ:"

m.sh.: NÍL GO: [C11bx1]

NÍ GÁ: [C11bx3] mar seo
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL