Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արագ հեռացնել գծանշումները Excel- ի բջիջներից:

Ենթադրելով, որ ձեր աշխատաթերթի բջիջներում կա փոստային կոդերի կամ երկար ISBN թվերի ցուցակ, իսկ երկար թվերը պարունակում են գծանշաններ, ինչ-որ նպատակի համար անհրաժեշտ է ազատվել թվերի միջև գծերից (ինչպես ցույց են տալիս սքրինշոթերը): Excel- ի թվերի միջեւ այդ գծերը հեռացնելու արագ եղանակներ կա՞ն:

Հեռացրեք գծերը բջիջներից բանաձևով
Հեռացրեք գծերը VBA կոդով բջիջներից
Excel- ի համար Kutools- ով հեշտությամբ հեռացրեք գծանշանները բջիջներից


Հեռացրեք գծերը բջիջներից բանաձևով

Այս ՓՈԽԱՐITԱԿ գործառույթը, համարները կվերածվեն տեքստի արժեքների, այնպես որ, երբ դուք հեռացնեք գծանշումները, ոչ առաջատար 0-ը կհեռացվի, ոչ էլ համարները կդառնան գիտական ​​նշում: Խնդրում ենք անել հետևյալը.

1, Հարակից դատարկ վանդակում, օրինակ, C1- ը, մուտքագրեք այս բանաձևը. = ՓՈԽԱՐITԱԿ (A1, "-", ""), տես նկարի նկարը.

2. Մամուլ Մտնել ստեղնը և ընտրեք C1 բջիջը, այնուհետև լրացրեք բռնիչը քաշեք այն միջակայքում, որը ցանկանում եք պարունակել այս բանաձևը: Եվ թվերի միջև գծերը հանվել են: Տեսեք,

Excel- ի բջիջներից հեշտությամբ հեռացրեք բոլոր թվային, ոչ թվային կամ նշված նիշերը, ինչպիսիք են «գծերը».

Excel- ի համար նախատեսված գործիքներ's Հեռացնել նիշերը օգտակար ծրագիրը օգնում է ձեզ հեշտությամբ հեռացնել բոլոր թվային, ոչ թվային կամ նշված նիշերը Excel- ի ընտրված բջիջներից:
Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)


Հեռացրեք գծերը VBA կոդով բջիջներից

Հետևյալ VBA կոդով կարող եք նաև հեռացնել համարների միջև գծերը մի շարք բջիջներից:

1, Նշեք այն շրջանակը, որը ցանկանում եք հեռացնել գծերը:

2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA. Հեռացնել գծերը թվերի միջև

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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս երկխոսություն ՝ ձեզ ասելու համար, որ ընտրեք մի տիրույթ, որը ցանկանում եք օգտագործել: Տեսեք,

5. Եվ այնուհետեւ կտտացրեք OK, համարների միջև գծերը հանվել են բջիջներից: Եվ համարի ձևաչափը վերափոխվում է տեքստի ձևաչափի: Տեսեք սքրինշոթերը.


Excel- ի համար Kutools- ով հեռացրեք գծերը բջիջներից

Եթե ​​դուք Excel- ի սկսնակ եք, և՛ բանաձևը, և՛ կոդը համար դժվար են ձեզ համար, խնդրում եմ մի անհանգստացեք, որ Excel- ի համար նախատեսված գործիքներ'S Հեռացնել նիշերը գործառույթը կարող է օգնել արագորեն ջնջել գծերը բջիջներից:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1, Ընտրեք այն բջիջները, որոնք անհրաժեշտ են բջիջները գծերը հեռացնելու համար, և այնուհետև կտտացրեք Կուտոլս > Տեքստ > Հեռացնել նիշերը, տես նկարի նկարը.

2, Մեջ Հեռացնել նիշերը երկխոսության տուփ, ստուգեք Սովորություն տարբերակը և մուտքագրել «-”Նիշը տեքստի տուփի մեջ, ապա կարող եք նախադիտել արդյունքները ՝ Preview Վահանակ Դրանից հետո կտտացրեք OK ընտրված բջիջներում բոլոր գծերը հեռացնելու կոճակը: Տեսեք,

Նշում, Եթե ​​ընտրված բջիջները պարունակում են առաջատար զրոներ կամ շատ թվանշաններ, առաջատար զրոները պահելու և համարը խուսափելու համար գիտական ​​նշումը դառնալու համար `գծանշանները հեռացնելուց հետո, անհրաժեշտ է ձևաչափել բջիջները որպես տեքստ, ինչպես ցույց է տրված ստորև նշված նկարը, նախքան կիրառելը Հեռացնել նիշերը կոմունալ.

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Excel- ի համար Kutools- ով հեշտությամբ հեռացրեք գծանշանները բջիջներից


Առնչվող հոդվածներ քանակը:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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