Skip i'r prif gynnwys

Sut i gael gwared â thaenau o gelloedd yn Excel yn gyflym?

Gan dybio bod rhestr o godau zip neu rifau ISBN hir yng nghelloedd eich taflen waith, ac mae'r niferoedd hir yn cynnwys toriadau, at ryw bwrpas, mae angen i chi gael gwared ar y toriadau rhwng y rhifau (fel y dengys sgrinluniau canlynol). A oes unrhyw ffyrdd cyflym o gael gwared ar y toriadau hyn rhwng y rhifau yn excel?

Tynnwch dashes o gelloedd gyda fformiwla
Tynnwch ddasau o gelloedd sydd â chod VBA
Tynnwch dashes yn hawdd o gelloedd gyda Kutools ar gyfer Excel


Tynnwch dashes o gelloedd gyda fformiwla

Gyda hyn TANYSGRIFIAD swyddogaeth, bydd y rhifau'n cael eu trosi'n werthoedd testun, felly pan fyddwch chi'n tynnu'r toriadau, ni fydd y 0 blaenllaw yn cael eu tynnu nac yn dod yn rhifau gwyddonol. Gwnewch fel a ganlyn:

1. Mewn cell wag gyfagos, C1 er enghraifft, nodwch y fformiwla hon: = SYLWEDD (A1, "-", ""), gweler y screenshot:

2. Gwasgwch Rhowch allwedd, a dewis cell C1, yna llusgwch y handlen llenwi i'r ystod rydych chi am gynnwys y fformiwla hon. Ac mae'r toriadau rhwng y niferoedd wedi'u dileu. Gweler y screenshot:

Tynnwch yr holl gymeriadau rhifol, di-rifol neu benodol fel "rhuthrau" yn hawdd o gelloedd yn Excel:

Kutools ar gyfer Excel's Dileu Cymeriadau mae cyfleustodau yn eich helpu i gael gwared ar yr holl gymeriadau rhifol, heb rif neu rai penodol o gelloedd dethol yn Excel.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr am ddim 30 diwrnod)


Tynnwch ddasau o gelloedd sydd â chod VBA

Gyda'r cod VBA canlynol, gallwch hefyd gael gwared ar y toriadau rhwng y rhifau o ystod o gelloedd.

1. Tynnwch sylw at yr ystod rydych chi am gael gwared â'r rhuthrau.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn ffenestr y Modiwl.

VBA: cael gwared ar dashes rhwng rhifau

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae dialog wedi'i popio allan i ddweud wrthych chi ddewis ystod rydych chi am ei defnyddio. Gweler y screenshot:

5. Ac yna cliciwch OK, mae'r toriadau rhwng y niferoedd wedi'u tynnu o'r celloedd. Ac mae'r fformat rhif yn cael ei drawsnewid i fformat testun. Gweler sgrinluniau:


Tynnwch dashes o gelloedd gyda Kutools ar gyfer Excel

Os ydych chi'n ddechreuwr Excel, mae'r fformiwla a'r cod yn anodd i chi, peidiwch â phoeni, y Kutools ar gyfer Excel'S Dileu Cymeriadau gall swyddogaeth eich helpu i ddileu'r rhuthrau o'r celloedd yn gyflym.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch yr ystod pa gelloedd sydd eu hangen arnoch i gael gwared ar dashes, ac yna cliciwch Kutools > Testun > Dileu Cymeriadau, gweler y screenshot:

2. Yn y Dileu Cymeriadau blwch deialog, gwirio Custom opsiwn, a theipiwch “-Cymeriad i mewn i'r blwch testun, yna gallwch chi gael rhagolwg o'r canlyniadau o'r Rhagolwg Pane. Yna cliciwch y OK botwm i gael gwared ar yr holl dashes mewn celloedd dethol. Gweler y screenshot:

Nodyn. Os yw'r celloedd a ddewiswyd yn cynnwys seroau blaenllaw neu lawer o ddigidau, ar gyfer cadw'r seroau blaenllaw ac osgoi'r nifer yn dod yn nodiant gwyddonol ar ôl tynnu'r rhuthrau, mae angen i chi fformatio'r celloedd fel Testun fel isod y llun a ddangosir cyn defnyddio'r Dileu Cymeriadau cyfleustodau.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Tynnwch dashes yn hawdd o gelloedd gyda Kutools ar gyfer Excel


Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
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