Preskoči na glavno vsebino

Excel odstrani znake, besede, številke iz besedilnih nizov

Predpostavimo, da imate dolg seznam besedilnih nizov, ki vsebujejo znake, številke ali druge specifične simbole. V določenem primeru boste morda morali odstraniti nekatere znake glede na položaj, na primer z desne, leve ali sredine iz besedilnih nizov, ali izbrisati nekatere neželene znake, številke s seznama nizov. Iskanje rešitev eno za drugo vam bo povzročilo glavobol, ta vadnica zbere vse vrste metod za odstranjevanje znakov, besed ali številk v Excelu.

Kazalo:

1. Odstranite znake z leve, desne ali sredine besedilnih nizov

2. Odstranite neželene/posebne znake iz besedilnih nizov

3. Odstranite znake/besedilo pred ali za določenim znakom

4. Odstranite besede iz besedilnih nizov


Odstranite znake z leve, desne ali sredine besedilnih nizov

Morda je običajna naloga večine od nas, da odstranimo nekaj znakov z leve, desne ali sredine besedilnih nizov v Excelovih delovnih listih. Ta razdelek bo predstavil nekaj hitrih in enostavnih trikov za reševanje te naloge.

1.1 Odstranite prvih n znakov iz besedilnih nizov

Če morate s seznama besedilnih nizov odstraniti prvih n znakov, vam lahko pomagajo naslednje metode.

 Z uporabo formul

Običajno lahko za brisanje znakov z začetka besedilnih nizov uporabite funkcijo REPLACE ali kombinacijo funkcij DESNO in LEN.

Funkcija REPLACE za odstranitev prvih N znakov:

=REPLACE(string, 1, num_chars, "")
  • niz: besedilni niz, iz katerega želite odstraniti znake;
  • številskih znakov: število znakov, ki jih želite odstraniti.

Če želite na primer odstraniti prva dva znaka iz celic, uporabite spodnjo formulo in nato povlecite ročico za polnjenje, da kopirate formulo v druge celice, glejte posnetek zaslona:

=REPLACE(A4, 1, 2, "")

Funkcije DESNO in LEN za odstranitev prvih N znakov:

=RIGHT(string, LEN(string) - num_chars)
  • niz: besedilni niz, iz katerega želite odstraniti znake;
  • številskih znakov: število znakov, ki jih želite odstraniti.

Če želite odstraniti prva dva znaka iz celic, uporabite naslednjo formulo:

=RIGHT(A4,LEN(A4)-2)


 Z uporabo uporabniško definirane funkcije

Če želite odstraniti prvih n znakov iz celic, lahko ustvarite tudi uporabniško definirano funkcijo za rešitev te naloge. Prosimo, naredite z naslednjimi koraki:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite prvih n znakov iz besedilnih nizov

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. Nato se vrnite na delovni list in nato vnesite to formulo: = odstraniprvix (A4,2) v prazno celico in nato povlecite ročico za polnjenje navzdol, da dobite rezultate, kot jih potrebujete, glejte posnetek zaslona:

Opombe: V tej formuli: A4 je celica, iz katere želite odstraniti znake; Število 2 označuje število znakov, ki jih želite odstraniti z začetka besedilnega niza.


1.2 Odstranite zadnjih n znakov iz besedilnih nizov

Če želite odstraniti določeno število znakov z desne strani besedilnih nizov, lahko uporabite tudi formulo ali uporabniško definirano funkcijo.

 Z uporabo formule

Če želite odstraniti zadnjih n znakov iz besedilnih nizov, lahko uporabite formulo, ki temelji na funkcijah LEFT in LEN.

Funkcije LEFT in LEN za odstranitev zadnjih N znakov:

=LEFT(string, LEN(string) - num_chars)
  • niz: besedilni niz, iz katerega želite odstraniti znake;
  • številskih znakov: število znakov, ki jih želite odstraniti.

Če želite izbrisati 3 znake s konca besedilnih nizov, uporabite to formulo in nato povlecite ročico za polnjenje, da kopirate formulo v druge celice, glejte posnetek zaslona:

=LEFT(A4, LEN(A4) - 3)


 Z uporabo uporabniško definirane funkcije

Tukaj vam lahko uporabniško definirana funkcija pomaga odstraniti zadnjih n znakov s seznama celic, naredite to:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite zadnjih n znakov iz besedilnih nizov

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. Nato se vrnite na delovni list in vnesite to formulo: = odstrani zadnji (A4,3) v prazno celico in nato povlecite ročico za polnjenje navzdol, da dobite rezultate, kot jih potrebujete, glejte posnetek zaslona:

Opombe: V tej formuli: A4 je celica, iz katere želite odstraniti znake; Število 3 označuje število znakov, ki jih želite odstraniti s konca besedilnega niza.


1.3 Z zmogljivo funkcijo odstranite prvih, zadnjih n znakov ali določenih pozicijskih znakov

Morda vam bo boleče zapomniti različne formule, odstraniti znake z leve, desne ali določenega položaja besedilnih nizov, Kutools za Excel podpira močno funkcijo - Odstrani po položaju. S tem majhnim orodjem lahko opravite ta opravila z nekaj kliki, ne da bi si zapomnili formul.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite celice, iz katerih želite odstraniti znake, in kliknite Kutools > Besedilo > Odstrani po položaju, glej posnetek zaslona:

2. v Odstrani po položaju pogovorno okno, naredite naslednje:

2.1 Odstranite prvih n znakov iz celic:

  • In Številke besedilno polje, vnesite število znakov, ki jih želite odstraniti iz nizov. V tem primeru bom odstranil prva 2 znaka.
  • Izberite Z leve možnost v položaj oddelek.
  • Nato kliknite Ok or Uporabi gumb, da dobite rezultat, kot je prikazano na spodnjem posnetku zaslona.

2.2 Odstranite zadnjih n znakov iz celic:

  • In Številke besedilno polje, vnesite število znakov, ki jih želite odstraniti iz nizov. V tem primeru bom odstranil zadnje 3 znake.
  • Izberite Od desne možnost v položaj oddelek.
  • Nato kliknite Ok or Uporabi gumb, da dobite rezultat, kot je prikazano na spodnjem posnetku zaslona.

2.3 Odstranite n znakov iz določenega položaja celic:

Če morate na primer odstraniti določeno število znakov z določenega položaja besedilnih nizov, se odstranitev 3 znakov začne s tretjim znakom nizov.

  • In Številke besedilno polje, vnesite število znakov, ki jih želite odstraniti iz nizov. V tem primeru bom odstranil 3 znake z določenega mesta.
  • Izberite Določite možnost in v polje z besedilom vnesite številko, s katere želite odstraniti znake položaj oddelek. Tukaj bom odstranil znake iz tretjega znaka.
  • Nato kliknite Ok or Uporabi gumb, da dobite rezultat, kot je prikazano na spodnjem posnetku zaslona.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


1.4 Iz besedilnih nizov s formulo odstranite tako prvih n kot zadnjih n znakov

Ko morate v Excelu odstraniti nekaj znakov na obeh straneh besedilnih nizov, lahko združite funkciji MID in LEN, da ustvarite formulo za obravnavo te naloge.

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • niz: besedilni niz, iz katerega želite odstraniti znake;
  • levi_znaki: število znakov, ki jih je treba odstraniti z leve strani;
  • desni_znaki: Število znakov, ki jih je treba odstraniti z desne strani.

Na primer, iz besedilnih nizov morate hkrati odstraniti prvih 7 znakov in zadnjih 5 znakov, v prazno celico vnesite naslednjo formulo:

=MID(A4, 7+1, LEN(A4) - (7+5))

Opombe: V tej formuli: A4 je celica, iz katere želite odstraniti znake; Število 7 je število znakov, ki jih želite odstraniti z leve strani; Število 5 je število znakov, ki jih želite odstraniti z desne strani.

Nato povlecite ročico za polnjenje navzdol do mesta, kjer želite uporabiti to formulo, in dobili boste rezultat, kot je prikazano na spodnjem posnetku zaslona:


Odstranite neželene/posebne znake iz besedilnih nizov

Ko uvažate podatke od drugod v Excel, se lahko na vaš delovni list prilepi veliko posebnih ali neželenih znakov. Če želite odstraniti te nezaželene znake, kot so #@$%^&, presledki, številke, neštevilske številke, prelomi vrstic itd., vam bo v tem razdelku pomagalo nekaj uporabnih metod.

2.1 Odstranite nekaj posebnih znakov iz besedilnih nizov

Če je v besedilnih nizih nekaj posebnih znakov, kot je %^&*(), za odstranitev te vrste znakov lahko uporabite spodnje tri trike.

 Odstranite več posebnih znakov iz besedilnih nizov s funkcijo SUBSTITUTE

Običajno lahko v Excelu ugnezdite več funkcij SUBSTITUTE, da zamenjate vsak določen znak z ničemer, splošna sintaksa je:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • celica_niza: celica vsebuje besedilni niz, iz katerega želite odstraniti posebne znake;
  • char1, char2, char3: Neželeni znaki, ki jih želite odstraniti.

Zdaj kopirajte ali vnesite spodnjo formulo v prazno celico:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

Nato povlecite ročico za polnjenje navzdol do celic, kjer želite uporabiti to formulo, in vsi neželeni znaki, ki ste jih določili, bodo naenkrat odstranjeni, glejte posnetek zaslona:

nasveti: Če želite odstraniti več znakov, morate samo v formulo ugnezditi več funkcij SUBSTITUTE.


 Odstranite več posebnih znakov iz besedilnih nizov z uporabniško definirano funkcijo

Zgornje ugnezdene funkcije SUBSTITUTE delujejo dobro, če je treba odstraniti nekaj posebnih znakov, če pa morate odstraniti na desetine znakov, bo formula postala predolga in težka za upravljanje. V tem primeru vam lahko naslednja uporabniško definirana funkcija pomaga hitro in enostavno dokončati to nalogo.

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite več posebnih znakov iz besedilnih nizov

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. Nato zaprite okno s kodo in se vrnite na delovni list, vnesite to formulo =Odstrani nezaželene znake(A2, $D$2) v prazno celico, kamor želite iznesti rezultat, in nato povlecite ročico za polnjenje navzdol, da dobite rezultate, kot jih potrebujete, glejte posnetek zaslona:

Opombe: V zgornji formuli: A2 je celica, iz katere želite odstraniti znake; $ D $ 2 vsebuje posebne znake, ki jih želite odstraniti (vnesete lahko vse druge posebne znake, ki jih potrebujete).


 Odstranite več posebnih znakov iz besedilnih nizov z neverjetno funkcijo

Če ste namestili Kutools za Excel, Z njegovim Odstrani znake Funkcija, lahko odstranite vse vrste znakov, kot so številski znaki, alfa znaki, znaki, ki niso natisnjeni ... s seznama celic, kot jih potrebujete.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg celic, iz katerih želite odstraniti posebne znake, in kliknite Kutools > Besedilo > Odstrani znake, glej posnetek zaslona:

2. v Odstrani znake pogovorno okno:

  • Preveri po meri možnost pod Odstrani znake oddelek.
  • Nato vnesite posebne znake v besedilno polje, ki ga želite odstraniti.
  • Nato kliknite Ok or Uporabi gumb, da naenkrat odstranite znake, ki ste jih določili. Glej posnetek zaslona:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


2.2 Odstranite vse številke iz besedilnih nizov

Če imate seznam besedilnih nizov, ki se mešajo s številkami, črkami in posebnimi znaki, in zdaj želite samo odstraniti vse številke in obdržati druge znake. V tem razdelku boste našli nekaj priročnih načinov za pomoč.

 Odstranite številke iz besedilnih nizov s funkcijo SUBSTITUTE

V Excelu lahko ugnezdena funkcija SUBSTITUTE pomaga zamenjati vse številke z nič, zato lahko uporabite spodnjo formulo za odstranitev vseh številk iz celic:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

Nato povlecite ročico za polnjenje navzdol do celic, kjer želite uporabiti to formulo, in vse številke bodo izbrisane s seznama besedilnih nizov, glejte posnetek zaslona:


 Odstranite številke iz besedilnih nizov s funkcijo TEXTJOIN

Če imate Excel 2019, 2021 ali 365, lahko nova funkcija TEXTJOIN pomaga tudi pri odstranjevanju številk iz besedilnih nizov.

Kopirajte naslednjo formulo v prazno celico in nato skupaj pritisnite tipki Ctrl + Shift + Enter, da dobite prvi rezultat:

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

Nato formulo kopirajte v druge celice spodaj, kjer želite uporabiti to formulo, glejte posnetek zaslona:

Opombe: To TEXTJOIN je na voljo samo v Excel 2019, 2021 in Office 365.


 Odstranite številke iz besedilnih nizov z uporabniško določeno funkcijo

Poleg zgornjih dveh formul vam lahko uslugo naredi tudi uporabniško definirana funkcija, naredite naslednje:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite številke iz besedilnih nizov

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. Nato zaprite in zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo: = Odstrani številke (A2) v prazno celico, nato povlecite ročico za polnjenje navzdol do celic, kjer želite uporabiti to formulo, glejte posnetek zaslona:


 Odstranite številke iz besedilnih nizov s priročno možnostjo

Če ste utrujeni od zapletenih formul, naj vam pokažem preprosto orodje – Kutools za ExcelJe Odstrani znake. S to priročno funkcijo lahko to nalogo opravite z le nekaj kliki.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg celic, kjer želite odstraniti številke, in kliknite Kutools > Besedilo > Odstrani znake.

2. v Odstrani znake pogovorno okno, naredite naslednje:

  • Preveri Številčno možnost pod Odstrani znake oddelek.
  • Nato kliknite Ok or Uporabi gumb za takojšnjo odstranitev številk. Glej posnetek zaslona:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


2.3 Odstranite neštevilske znake iz besedilnih nizov

Za odstranitev vseh neštevilskih znakov in ohranitev samo številk iz besedilnih nizov bo ta razdelek govoril o nekaterih načinih reševanja te naloge v Excelu.

 Odstranite neštevilske znake iz besedilnih nizov s formulo v Excelu 2016 in starejših različicah

Če uporabljate Excel 2016 ali starejše različice, morate za dosego tega opravila uporabiti zapleteno formulo, kopirajte ali vnesite spodnjo formulo v prazno celico:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

Nato formulo kopirajte v druge celice spodaj, kjer želite uporabiti to formulo, glejte posnetek zaslona:

Opombe: Če se številke v besedilnem nizu začnejo z 0, bo 0 izgubljena.


 Odstranite neštevilske znake iz besedilnih nizov s funkcijo TEXTJOIN v Excelu 2019, 2021, 365

Zgornja formula je morda pretežka za razumevanje za večino od nas. Če imate Excel 2019, 2021 ali 365, obstaja čista formula, ki vam lahko pomaga.

Kopirajte ali vnesite naslednjo formulo v prazno celico in pritisnite Ctrl + Shift + Enter tipke skupaj, da dobite prvi pravilen rezultat:

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

Nato povlecite ročico za polnjenje navzdol do celic, kjer boste uporabili to formulo, in dobili boste rezultat, kot je prikazano spodaj:

Opombe: S to formulo lahko vidite, da se bodo vodilne 0 ohranile, saj so številke vrnjene kot besedilo.


 Odstranite neštevilske znake iz besedilnih nizov z uporabniško definirano funkcijo

Seveda lahko ustvarite tudi svojo uporabniško definirano funkcijo s preprostejšo sintakso, naredite to:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite neštevilske znake iz besedilnih nizov

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. Nato zaprite in zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo: =Odstrani numerično (A2) v prazno celico, nato povlecite ročico za polnjenje navzdol do celic, kjer želite uporabiti to formulo, izvlečene bodo samo številke, kot je prikazano spodaj:


 Odstranite neštevilske znake iz besedilnih nizov s preprosto funkcijo

Če želite neposredno izbrisati neštevilske znake v obsegu celic, Kutools za ExcelJe Odstrani znake pripomoček lahko to stori z le nekaj kliki.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg celic, iz katerih želite odstraniti neštevilske znake, in kliknite Kutools > Besedilo > Odstrani znake.

2. v Odstrani znake v pogovornem oknu nastavite naslednje postopke:

  • Preveri Nenumerično možnost pod Odstrani znake oddelek.
  • Nato kliknite Ok or Uporabi gumb, da takoj odstranite vse neštevilske znake. Glej posnetek zaslona:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


2.4 Besedilo in številke ločite iz ene celice v dva stolpca

Včasih boste morda želeli izvleči besedilo in številke iz besedilnih nizov v dva ločena stolpca, s pomočjo naslednjih metod lahko to nalogo dokončate hitro in enostavno.

 Ločite besedilo in številke iz ene celice v dva stolpca z uporabniško definirano funkcijo

Z uporabo naslednje uporabniško definirane funkcije lahko izvlečete besedilo in številke naenkrat, naredite s spodnjimi koraki:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: ločite besedilo in številke iz besedilnih nizov v dva stolpca

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. Nato zaprite in zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo: = SplitText (A2, FALSE) v prazno celico in nato povlecite ročico za polnjenje navzdol do celic, ki jih želite izpolniti s to formulo, da dobite vse besedilo, glejte posnetek zaslona:

4. Nato nadaljujte s tipkanjem te formule: = SplitText (A2, TRUE) v drugo celico in povlecite ročico za polnjenje navzdol do celic, v katere želite izpolniti to formulo, da dobite številke, glejte posnetek zaslona:


 Ločite besedilo in številke iz ene celice v dva stolpca s preprosto funkcijo

Če imate Kutools za Excel, njeno Razdeljene celice pripomoček vam lahko pomaga razdeliti celice v več stolpcev ali vrstic na podlagi poljubnih ločil, določene širine ali besedila in števila.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg celic, ki jih želite razdeliti, in kliknite Kutools > Spoji in razdeli > Razdeljene celice, glej posnetek zaslona:

2. v Razdeljene celice pogovorno okno, izberite Razdeli na stolpce možnost pod tip in nato preverite Besedilo in številka Iz Razdeljeno po razdelek, glej posnetek zaslona:

3. Nato kliknite Ok gumb in drugo Razdeljene celice se prikaže pogovorno okno, izberite celico za izpis ločenega besedila in številk, nato pa kliknite OK gumb. Zdaj lahko vidite, da so besedilo in številke v izbranih celicah razdeljeni v dva stolpca hkrati, kot je prikazano spodaj:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


2.5 Odstranite znake za prelom vrstice iz besedilnih nizov

Prelom vrstice je nekaj, kar vam omogoča, da imate več vrstic v isti celici v Excelu. Včasih, ko kopirate podatke s spletnega mesta ali ločite vsebino vaše celice z Alt + Enter ročno, boste dobili prelome vrstic ali vrnitve nosilca. V določenem primeru boste morda želeli izbrisati prelome vrstic, da bo vsebina celice ena vrstica, kot je prikazano na spodnjem posnetku zaslona. Tukaj bom predstavil nekaj načinov za reševanje te naloge v Excelu.

 Odstranite znake preloma vrstice iz besedilnih nizov s funkcijo Najdi in zamenjaj

V Excelu lahko uporabite Poišči in zamenjaj funkcijo za odstranitev preloma vrstic, naredite to:

1. Izberite obseg podatkov, iz katerega želite odstraniti prelome vrstic.

2. Nato kliknite Domov > Poiščite in izberite > Zamenjaj (ali pritisnite Ctrl + H tipke), da greste Poišči in zamenjaj pogovorno okno, glej posnetek zaslona:

3. V izskočil Poišči in zamenjaj pogovorno okno, naredite naslednje:

  • Kazalec postavite v Našli kaj polje in pritisnite Ctrl + J na tipkovnici morda ne boste videli ničesar, vendar je bil vstavljen znak za prelom vrstice.
  • v Zamenjaj z polje, pustite to polje prazno, da samo izbrišete prelome vrstic ali pritisnite tipko Vesoljski bar enkrat, da zamenjate prelome vrstic s praznimi.

4. Nato kliknite Zamenjaj vse gumb, bodo vsi prelomi vrstic v izbranih celicah naenkrat izbrisani ali zamenjani s praznimi. Glej posnetek zaslona:


 Odstranite znake preloma vrstice iz besedilnih nizov s funkcijo SUBSTITUTE

Ustvarite lahko tudi formulo, ki temelji na funkcijah SUBSTITUTE in CHAR, da odstranite prelome vrstic iz besedilnih nizov.

Za rezultat uporabite spodnjo formulo:

=SUBSTITUTE(A2,CHAR(10),"")

nasveti: Funkcija SUBSTITUTE poišče in nadomesti znak CHAR(10), ki predstavlja znak za prelom vrstice brez nič. Če želite, da je rezultat ločen z vejico in presledkom, lahko uporabite spodnjo formulo:

=SUBSTITUTE(A2,CHAR(10),", ")


 Odstranite znake preloma vrstice iz besedilnih nizov s kodo VBA

Če vam je všeč uporaba kode VBA, je tukaj tudi koda za vas, naredite naslednje:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite prelome vrstic iz besedilnih nizov

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. Nato pritisnite F5 tipko za zagon te kode in pojavi se okno s pozivom, izberite obseg, za katerega želite odstraniti prelome vrstic, glejte posnetek zaslona:

4. In nato kliknite OK gumb, bodo vsi prelomi vrstic izbrisani iz izbranega obsega podatkov.


 Odstranite znake preloma vrstice iz besedilnih nizov s pametno možnostjo

Tu Kutools za ExcelJe Odstrani znake funkcija vam lahko pomaga tudi z lahkoto odstraniti prelome vrstic.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg celic, kjer želite odstraniti prelome vrstic, in kliknite Kutools > Besedilo > Odstrani znake.

2. v Odstrani znake v pogovornem oknu nastavite naslednje postopke:

  • Preveri Ne tiskanje možnost pod Odstrani znake oddelek.
  • Nato kliknite Ok or Uporabi gumb za odstranitev vseh prelomov vrstic iz izbranega obsega podatkov. Glej posnetek zaslona:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


2.6 Iz besedilnih nizov odstranite presledke (na začetku, na koncu, dodatne ali vse presledke).

Obvladovanje in lepljenje besedila iz zunanjega vira na Excelov delovni list pogosto prinese nekaj nadležnih presledkov, ročno odstraniti prve, končne ali druge dodatne presledke bo dolgočasno. Na srečo Excel ponuja nekaj preprostih trikov za reševanje te naloge.

 S funkcijo TRIM odstranite odvečne presledke (prvi, zadnji, presežni) iz besedilnih nizov

V Excelu vam lahko pomaga preprosta funkcija TRIM za brisanje začetnih, končnih in dodatnih presledkov iz besedilnih nizov. Ta funkcija izbriše vse presledke, razen posameznih presledkov med besedami.

Prosimo, vnesite spodnjo formulo v prazno celico:

=TRIM(A2)

Nato povlecite ročico za polnjenje navzdol, da kopirate formulo za druge celice, zdaj lahko vidite, da so vsi začetni, končni presledki in dodatni presledki med besedami odstranjeni naenkrat s posnetka zaslona:


 Odstranite vse presledke iz besedilnih nizov

Če želite odstraniti vse presledke iz besedilnih nizov, vam lahko naredita uslugo naslednja funkcija SUBSTITUTE in Find & Replace.

Z uporabo funkcije SUBSTITUTE

S funkcijo SUBSTITUTE lahko zamenjate vse presledke z nič, prosimo, uporabite spodnjo formulo v prazno celico:

=SUBSTITUTE(A2," ","")

Nato povlecite ročico za polnjenje navzdol, da kopirate to formulo v druge celice, ki jih potrebujete, in vsi presledki bodo izbrisani, kot je prikazano spodaj:


Z uporabo funkcije Najdi in zamenjaj

Dejansko je Poišči in zamenjaj funkcija v Excelu lahko pomaga tudi, da se znebite vseh presledkov iz izbranih celic, naredite naslednje:

1. Izberite obseg podatkov, iz katerega želite odstraniti vse presledke.

2. Nato kliknite Domov > Poiščite in izberite > Zamenjaj (ali pritisnite Ctrl + H tipke), da odprete Poišči in zamenjaj pogovornem oknu, ki se odpre Poišči in zamenjaj pogovorno okno, naredite naslednje:

  • Pritisnite Preslednica v Našli kaj polje;
  • v Zamenjaj z polje, pustite to polje prazno.

3. In nato kliknite Zamenjaj vse gumb, bodo vsi presledki v izbranih celicah naenkrat izbrisani. Glej posnetek zaslona:


 Z zmogljivo funkcijo odstranite vse vrste presledkov iz besedilnih nizov

Kutools za Excel ima močno funkcijo - Odstrani presledke, s tem pripomočkom ne morete v enem pogovornem oknu odstraniti ne samo vodilne presledke, zadnje presledke, odvečne presledke, temveč tudi vse presledke iz izbranih obsegov, kar bo povečalo vašo delovno produktivnost.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg podatkov, iz katerega boste odstranili presledke, in kliknite Kutools > Besedilo > Odstrani presledke. Oglejte si posnetek zaslona:

2. v Odstrani presledke v pogovornem oknu izberite eno vrsto prostora, ki jo želite odstraniti iz Tip presledkov:

  • Odstranite vodilne presledke, izberite Vodilni prostori možnost;
  • Odstranite končne presledke, izberite Zaostali presledki možnost;
  • Odstranite prve in zadnje presledke naenkrat, izberite Vodilni in zaključni presledki možnost;
  • Odstranite vse dodatne presledke, izberite Vsi odvečni prostori možnost;
  • Odstranite vse presledke, izberite Vsi prostori možnost.

3. Nato kliknite Ok or Uporabi gumb, boste dobili rezultat, ki ga potrebujete.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Odstranite znake/besedilo pred ali za določenim znakom

V tem razdelku bom predstavil nekaj operacij za odstranjevanje besedila ali znakov pred ali po prvi, zadnji ali n-ti pojavitvi določenega znaka.

3.1 Odstranite besedilo pred ali za prvim določenim znakom

Če želite odstraniti besedilo pred ali za prvim določenim znakom, kot je presledek, vejica s seznama besedilnih nizov, kot je prikazano na spodnjem posnetku zaslona, ​​bom tukaj za vas objavil dva načina.

 Odstranite besedilo pred prvim določenim znakom s formulo

Če želite odstraniti besedilo ali znake pred prvim določenim znakom, lahko ustvarite formulo, ki temelji na funkcijah RIGHT, LEN in FIND, splošna sintaksa je:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • celica: sklic na celico ali besedilni niz, iz katerega želite odstraniti besedilo;
  • kočija: Ločilo, na podlagi katerega želite odstraniti besedilo.

Če želite na primer odstraniti vse pred prvo vejico iz nizov seznama, morate naslednjo formulo uporabiti v prazno celico in jo nato povlecite navzdol do celic, ki jih potrebujete, glejte posnetek zaslona:

=RIGHT(A2,LEN(A2)-FIND(",",A2))

Opombe:V zgornji formuli: A2 je celica, iz katere želite odstraniti besedilo; , je določen znak, na podlagi katerega želite odstraniti besedilo. Po potrebi ga lahko spremenite v katere koli druge znake.


 Odstranite besedilo za prvim določenim znakom s formulo

Če želite odstraniti vse za prvim določenim znakom, lahko uporabite funkciji LEFT in FIND, da dobite rezultat, splošna sintaksa je:

=LEFT(cell,FIND("char",cell)-1)
  • celica: sklic na celico ali besedilni niz, iz katerega želite odstraniti besedilo;
  • kočija: Ločilo, na podlagi katerega želite odstraniti besedilo.

Zdaj vnesite spodnjo formulo v prazno celico in nato povlecite ročico za polnjenje navzdol do drugih celic, kjer želite uporabiti to formulo, in vsi znaki za prvo vejico bodo odstranjeni naenkrat, glejte posnetek zaslona:

=LEFT(A2,FIND(",",A2)-1)


3.2 Odstranite besedilo pred ali po N-ti pojavitvi znaka

Včasih besedilni nizi vsebujejo več primerkov določenega ločila, morda boste želeli odstraniti vse znake pred ali za določenim primerkom, kot je drugi, tretji ali četrti, kot potrebujete. Za spopadanje s to vrsto odstranjevanja lahko uporabite naslednje trike:

 Odstrani besedilo pred N-im pojavom znaka s formulo

Če želite odstraniti besedilo pred N-to pojavom določenega znaka, vam lahko pomaga naslednja formula, splošna sintaksa je:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • celica: sklic na celico ali besedilni niz, iz katerega želite odstraniti besedilo;
  • kočija: določen ločilo, na podlagi katerega želite odstraniti besedilo;
  • N: pojav znaka, pred katerim je treba odstraniti besedilo.

Na primer, če želite iz besedilnih nizov odstraniti vse pred drugo vejico, uporabite spodnjo formulo:

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

Opombe:V zgornji formuli: A2 je celica, iz katere želite odstraniti besedilo; , je določen znak, na podlagi katerega želite odstraniti besedilo, ga lahko spremenite v poljubne druge znake; 2 označuje n-to vejico, pred katero želite odstraniti besedilo.

Nato povlecite ročico za polnjenje, da kopirate formulo v druge celice, glejte posnetek zaslona:


 Odstranite besedilo po N-ti pojavitvi znaka s formulo

Če želite odstraniti besedilo po N-ti pojavitvi določenega ločila, vam lahko funkcije LEVO, SUBSTITUTE in FIND naredijo uslugo. Splošna sintaksa je:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • celica: sklic na celico ali besedilni niz, iz katerega želite odstraniti besedilo;
  • kočija: določen ločilo, na podlagi katerega želite odstraniti besedilo;
  • N: pojav znaka, po katerem je treba besedilo odstraniti.

Ko razumete osnovno sintakso, kopirajte ali vnesite spodnjo formulo v prazno celico:

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

Opombe:V zgornji formuli: A2 je celica, iz katere želite odstraniti besedilo; , je določen znak, na podlagi katerega želite odstraniti besedilo, ga lahko spremenite v poljubne druge znake; 2 označuje n-to vejico, po kateri želite odstraniti besedilo.

Nato povlecite ročico za polnjenje, da kopirate formulo v druge celice, in vsi znaki za drugo vejico bodo izbrisani naenkrat, glejte posnetek zaslona:


 Odstranite besedilo pred ali po N-ti pojavitvi znaka z uporabniško definirano funkcijo

Kot lahko vidite, lahko rešite primere za odstranjevanje besedila pred ali po N-ti pojavitvi znaka z uporabo izvornih funkcij Excela v različnih kombinacijah. Težava je v tem, da si morate zapomniti te zapletene formule. V tem primeru bom ustvaril uporabniško definirano funkcijo, ki bo pokrivala vse scenarije, naredite to:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite besedilo pred ali po N-ti pojavitvi znaka

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Nato zaprite in zaprite okno kode, se vrnite na delovni list, uporabite naslednje formule:

Odstrani besedilo pred drugim pojavom vejice:

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

Odstranite besedilo po drugi pojavitvi vejice

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


3.3 Odstranite besedilo pred ali po zadnji pojavitvi znaka

Če morate odstraniti vse besedilo pred ali za zadnjim določenim znakom in pustiti samo podnize za zadnjim določenim znakom ali pred njim, kot je prikazano na spodnjem posnetku zaslona, ​​bo ta razdelek govoril o nekaterih formulah za rešitev te težave.

 Odstranite besedilo pred zadnjim nastopom znaka s formulo

Če želite odstraniti vse znake pred zadnjim pojavom znaka, je splošna sintaksa:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • celica: sklic na celico ali besedilni niz, iz katerega želite odstraniti besedilo;
  • kočija: določen ločilo, na podlagi katerega želite odstraniti besedilo;

Zdaj, če morate odstraniti besedilo pred zadnjim pojavom vejice, kopirajte ali vnesite spodnjo formulo v prazno celico:

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

Opombe:V zgornji formuli: A2 je celica, iz katere želite odstraniti besedilo; , je določen znak, na podlagi katerega želite odstraniti besedilo. Po potrebi ga lahko spremenite v katere koli druge znake.

Nato povlecite ročico za polnjenje, da kopirate formulo v druge celice, in vsi znaki pred zadnjo vejico bodo izbrisani, kot je prikazano spodaj:


 Odstranite besedilo po zadnji pojavitvi znaka s formulami

Če so vrednosti celic ločene s spremenljivim številom ločil, zdaj želite izbrisati vse po zadnjem primerku tega ločila, je generična sintaksa:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • celica: sklic na celico ali besedilni niz, iz katerega želite odstraniti besedilo;
  • kočija: določen ločilo, na podlagi katerega želite odstraniti besedilo;

Kopirajte ali vnesite spodnjo formulo v prazno celico in nato povlecite ročico za polnjenje navzdol, da dobite druge potrebne rezultate, glejte posnetek zaslona:

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

Opombe:V zgornji formuli: A2 je celica, iz katere želite odstraniti besedilo; , je določen znak, na podlagi katerega želite odstraniti besedilo. Po potrebi ga lahko spremenite v katere koli druge znake.


3.4 Odstranite besedilo med oklepaji

Če imate seznam besedilnih nizov z delom znakov, zaprtimi v oklepajih, boste morda želeli odstraniti vse znake v oklepajih, vključno s samimi oklepaji, kot je prikazano spodaj. Ta razdelek bo govoril o nekaj trikih za reševanje te naloge v Excelu.

 Odstranite besedilo med oklepaji s funkcijo Najdi in zamenjaj

V Excelu vam lahko vgrajena funkcija Najdi in zamenjaj pomaga najti vsa besedila v oklepajih in jih nato zamenjati z ničemer. Prosim naredite takole:

1. Izberite seznam podatkov, iz katerega želite odstraniti besedila med oklepaji.

2. Nato kliknite Domov > Poiščite in izberite > Zamenjaj (ali pritisnite Ctrl + H tipke), da odprete pogovorno okno Najdi in zamenjaj v Poišči in zamenjaj v pogovornem oknu izvedite naslednje postopke:

  • v Našli kaj polje, vrsto (*) v besedilno polje;
  • v Zamenjaj z polje, pustite to polje prazno.

3. Nato kliknite Zamenjaj vse gumba, bodo vsi znaki v oklepajih (vključno z oklepaji) v izbranih celicah naenkrat izbrisani. Glej posnetek zaslona:

nasveti: Poišči in zamenjaj Funkcija deluje tudi za dva ali več parov oklepajev znotraj besedilnih nizov.


 Odstranite besedilo med oklepaji s formulo

Poleg funkcije Najdi in zamenjaj lahko uporabite tudi formulo za reševanje te naloge v Excelu, splošna sintaksa je:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • besedilo: besedilni niz ali sklic na celico, iz katerega želite odstraniti znake.

Zdaj kopirajte ali vnesite naslednjo formulo v prazno celico, kjer želite dobiti rezultat:

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

Nato povlecite ročico za polnjenje navzdol do celic, kjer želite uporabiti to formulo, in vsa besedila v oklepajih, vključno z oklepaji, bodo naenkrat odstranjena, glejte posnetek zaslona:

nasveti: Če v vrednosti celice ni oklepajev, se bo po uporabi zgornje formule prikazala napaka. Če želite prezreti napako, uporabite spodnjo formulo:

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 Odstranite besedilo med oklepaji z uporabniško definirano funkcijo

Zgornja formula dobro deluje za odstranjevanje besedila iz enega para oklepajev, če morate v besedilnih nizih odstraniti besedila iz več parov oklepajev, formula ne bo delovala pravilno. Tukaj bom ustvaril preprosto uporabniško definirano funkcijo za rešitev te naloge.

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite besedilo med oklepaji

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. Nato se vrnite na delovni list in v prazno celico vnesite to formulo: = remtxt (A2), nato povlecite ročico za polnjenje navzdol do celic, kjer želite uporabiti to formulo, vsa besedila v vseh oklepajih, vključno z oklepaji, bodo odstranjena, kot je prikazano spodaj:


Odstranite besede iz besedilnih nizov

V določenem primeru boste morda želeli odstraniti nekatere besede s seznama celic, kot so prva ali zadnja beseda, podvojene besede iz celice. Za reševanje tovrstnega odstranjevanja vam bo ta razdelek predstavil nekaj metod.

4.1 Odstranite prvo ali zadnjo besedo iz besedilnega niza

Če želite odstraniti prvo ali zadnjo besedo s seznama besedilnih nizov, vam lahko naredijo uslugo naslednje formule.

 Odstranite prvo besedo iz besedilnega niza s formulo

Odstranite prve besede s seznama besedilnih nizov, ustvarite lahko preprosto formulo, ki temelji na funkcijah RIGHT, LEN in FIND, generična sintaksa je:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • besedilo: besedilni niz ali sklic na celico, iz katerega želite odstraniti prvo besedo.

Zdaj vnesite ali kopirajte naslednjo formulo v prazno celico:

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

Nato povlecite ročico za polnjenje navzdol, da uporabite formulo za druge celice, glejte posnetek zaslona:

nasveti: Če morate iz celic odstraniti prvih N besed, uporabite spodnjo formulo:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • besedilo: besedilni niz ali sklic na celico, iz katerega želite odstraniti prvih n besed;
  • N: Označuje, koliko besed želite odstraniti z začetka besedilnega niza.

Če želite na primer odstraniti prvi dve besedi iz celic, kopirajte ali vnesite spodnjo formulo v prazno celico, da dobite želeni rezultat, glejte posnetek zaslona:

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


  Odstranite zadnjo besedo iz besedilnega niza s formulo

Če želite odstraniti zadnjo besedo iz besedilnih nizov, lahko uporabite tudi formulo za rešitev te naloge, splošna sintaksa je:

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • besedilo: besedilni niz ali sklic na celico, iz katerega želite odstraniti zadnjo besedo;

Uporabite spodnjo formulo v prazno celico in nato povlecite ročico za polnjenje navzdol, da uporabite formulo za druge celice, glejte posnetek zaslona:

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

nasveti: Če želite odstraniti zadnjih N besed s seznama celic, je generična sintaksa:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • besedilo: besedilni niz ali sklic na celico, iz katerega želite odstraniti zadnjih n besed;
  • N: Označuje število besed, ki jih želite odstraniti s konca besedilnega niza.

Če predpostavimo, da izbrišete zadnje 3 besede s seznama celic, uporabite spodnjo formulo, da vrnete rezultat, glejte posnetek zaslona:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


4.2 Odstranite podvojene znake ali besede v celici

Pri odstranjevanju podvojenih vrednosti ali vrstic Excel ponuja nekaj različnih možnosti, vendar ko gre za odstranitev nekaterih podvojenih znakov ali besed v dani celici, morda ni nobene dobre vgrajene funkcije za njeno reševanje. V tem primeru bo ta razdelek pomagal ustvariti nekatere uporabniško določene funkcije za reševanje te uganke.

 Odstranite podvojene znake v celici z uporabo uporabniško definirane funkcije

Če imate v celici več ponovitev istega znaka, lahko uporabite naslednjo uporabniško določeno funkcijo, da odstranite podvojene znake v celici in obdržite samo prve ponovitve, kot je prikazano na spodnjem posnetku zaslona.

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite podvojene znake v celici

Function RemoveDupeschars(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
RemoveDupeschars = xOutValue
End Function

3. Nato zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo =Odstrani Dupechars(A2) v prazno celico poleg vaših podatkov in nato povlecite ročico za polnjenje na celice, za katere želite uporabiti to formulo, glejte posnetek zaslona:

OpombeA2 je podatkovna celica, iz katere želite odstraniti podvojene znake.

Nasvet: Funkcija je občutljiva na velike in male črke, zato obravnava male in velike črke kot različne znake.


 Odstranite podvojene besede v celici z uporabo uporabniško definirane funkcije

Ob predpostavki, da imate v celici enake besede ali besedilne nize in želite odstraniti vse iste besede iz celice, kot je prikazano na spodnjem posnetku zaslona. Za rešitev te naloge v Excelu lahko uporabite naslednjo uporabniško definirano funkcijo.

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: odstranite podvojene besede v celici

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    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 RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. Nato zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo =OdstraniDupeswords(A2,", ") v prazno celico poleg vaših podatkov in nato povlecite ročico za polnjenje na celice, za katere želite uporabiti to formulo, glejte posnetek zaslona:

Opombe: A2 je celica, iz katere želite izbrisati podvojene besede, ter vejica in presledek (, ) so ločila za ločevanje besedilnih nizov, lahko jih spremenite v katere koli druge ločila glede na vaše potrebe.

Nasvet: Ta funkcija ni občutljiva na velike in male črke, male in velike črke se obravnavajo kot enaki znaki.


4.3 Obrežite besedilni niz na N besed

Če imate v celici dolg besedilni niz, boste morda želeli besedilni niz obrezati na določeno število besed, kar pomeni, da obdržite samo prvih n besed, ostale besede pa izrežete. Ta razdelek bo govoril o nekaj trikih, ki vam bodo pomagali pri doseganju tega dela v Excelu.

 Obrežite besedilni niz na N besed s formulo

Če želite besedilni niz obrezati na N besed, lahko ustvarite formulo na podlagi funkcij LEFT, FIND in SUBSTITUTE, splošna sintaksa je:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • besedilo: besedilni niz ali sklic na celico, ki ga želite obrezati;
  • N: število besed, ki jih želite obdržati na levi strani danega besedilnega niza.

Če želite opraviti to opravilo, kopirajte ali vnesite spodnjo formulo v prazno celico:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

Nato povlecite ročico za polnjenje navzdol, da uporabite to formulo za druge celice, glejte posnetek zaslona:


 Obrežite besedilni niz na N besed z uporabniško definirano funkcijo

Razen zgornje formule lahko ustvarite tudi uporabniško definirano funkcijo za reševanje te naloge, naredite takole:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v okno modula.

Koda VBA: Obrežite besedilni niz na N besed

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. Nato zaprite in zaprite okno s kodo, se vrnite na delovni list in vnesite to formulo: =Pridobi NWords(A2,B2) v prazno celico in nato povlecite ročico za polnjenje navzdol, da uporabite to formulo za druge celice, shranjeno je samo prvo določeno število besed, kot je prikazano spodaj:


  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
zavihek kte 201905
  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations