Preskoči na glavno vsebino

Kako hitro odstraniti pomišljaje iz celic v Excelu?

Recimo, da je v celicah vašega delovnega lista seznam poštnih številk ali dolgih številk ISBN, dolge številke pa vsebujejo pomišljaje, zato se morate znebiti pomišljajev med številkami (kot kažejo spodnji posnetki zaslona). Ali obstajajo hitri načini za odstranitev teh pomišljajev med številkami v Excelu?

Odstranite pomišljaje iz celic s formulo
Odstranite pomišljaje iz celic s kodo VBA
Z Kutools za Excel preprosto odstranite pomišljaje iz celic


Odstranite pomišljaje iz celic s formulo

S tem NAMESTITEV funkcija, bodo številke pretvorjene v besedilne vrednosti, tako da, ko odstranite pomišljaje, ne bo odstranjena niti začetna 0 niti številke ne bodo postale znanstveni zapis. Naredite naslednje:

1. V sosednjo prazno celico, na primer C1, vnesite to formulo: = NAMESTA (A1, "-", ""), glej posnetek zaslona:

2. Pritisnite Vnesite in izberite celico C1, nato povlecite ročico za polnjenje v obseg, ki ga želite vsebovati s to formulo. Črtice med številkami so odstranjene. Oglejte si posnetek zaslona:

Iz celic v Excelu enostavno odstranite vse številske, neštevilske ali določene znake, kot so »pomišljaji«:

Kutools za Excel's Odstrani znake pripomoček vam pomaga z lahkoto odstraniti vse številske, neštevilske ali določene znake iz izbranih celic v Excelu.
Prenesite in preizkusite zdaj! (30-dnevna brezplačna pot)


Odstranite pomišljaje iz celic s kodo VBA

Z naslednjo kodo VBA lahko tudi iz številnih celic odstranite pomišljaje med številkami.

1. Označite obseg, za katerega želite odstraniti pomišljaje.

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

VBA: odstrani pomišljaje med številkami

Sub DeleteDashes()
'Update 20130907
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)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4. Nato pritisnite F5 tipko za zagon te kode in odpre se pogovorno okno z izbiro obsega, ki ga želite uporabiti. Oglejte si posnetek zaslona:

5. In nato kliknite OK, pomišljaji med številkami so odstranjeni iz celic. In oblika števil se pretvori v besedilno obliko. Oglejte si posnetke zaslona:


Odstranite pomišljaje iz celic s programom Kutools za Excel

Če ste začetnik programa Excel, sta formula in koda za vas težki, ne skrbite, Kutools za ExcelJe Odstrani znake funkcija vam lahko pomaga hitro izbrisati pomišljaje iz celic.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite obseg, katere celice morate odstraniti pomišljaji, in kliknite Kutools > Besedilo > Odstrani znake, glej posnetek zaslona:

2. v Odstrani znake pogovorno okno, preverite po meri in vnesite »-"V besedilno polje, nato si lahko predogledate rezultate iz predogled Podokno. Nato kliknite OK gumb za odstranitev vseh pomišljajev v izbranih celicah. Oglejte si posnetek zaslona:

Opombe. Če izbrane celice vsebujejo vodilne ničle ali veliko števk, morate, da ohranite vodilne ničle in preprečite, da bi število po odstranitvi pomišljajev postalo znanstveni zapis, celice oblikovati kot Besedilo, kot je prikazano na sliki spodaj, pred uporabo Odstrani znake uporabnost.

  Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Z Kutools za Excel preprosto odstranite pomišljaje iz celic


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • 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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
this and the concatenate command have saved my brain from melting! thank you!
This comment was minimized by the moderator on the site
Sub DeleteDashes() 'Update 20130907 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) Application.ScreenUpdating = False For Each rng In WorkRng rng.NumberFormat = "@" rng.Value = VBA.Replace(rng.Value, "-", "") Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
unimpressed with your instructions - using the =SUBSTITUTE formula above, the leading zeros are stripped
This comment was minimized by the moderator on the site
THANK YOU EXTEND OFFICE IT'S VERY HELPFUL AND SIMPLE.. KUDOS!
This comment was minimized by the moderator on the site
Use the find and replace feature. (Ctrl + F, click the replace tab). Enter "-" Into the find field (or whatever you're trying to remove) and hit the replace button. Make sure you leave the "Replace with" field blank.
This comment was minimized by the moderator on the site
Great it works
This comment was minimized by the moderator on the site
WOW.... You win this whole thread, THANK YOU!!!
This comment was minimized by the moderator on the site
Hi, This is manish gupta and it is the good code of removing the border areas in excel sheets. thanks and regards manish gupta
This comment was minimized by the moderator on the site
HI , MY PROBMEL SOLVE PLEASE
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations