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

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

Ենթադրելով, որ ունեք աշխատանքային թերթ, որտեղ կան շատ նման տվյալներ ABCD4578124YUIOH, և դուք միայն ցանկանում եք հեռացնել ոչ թվային նիշերը  ԱԲԳԴՅՈՒԻՈՀ բայց բջիջներում պահիր թվային նիշերը: Իհարկե, դուք կարող եք մեկ առ մեկ հեռացնել այդ նիշերը, բայց հենց այստեղ դուք կարող եք արագորեն ազատվել ոչ թվային նիշերից բջիջներից, ինչպես հետևյալը.

Հեռացրեք ոչ թվային նիշերը VBA կոդով

Հարմար գործիք `մեկ սեղմումով ոչ թվային նիշերը հեռացնելու համար


Հեռացրեք ոչ թվային նիշերը VBA կոդով

VBA կոդով տիրույթից ոչ թվային նիշերը հեռացնելու համար կատարեք հետևյալը.

1. Սեղմել Երեվակիչ > Visual Basic բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներև ապա պատճենեք և տեղադրեք հետևյալ կոդերը մոդուլի մեջ.

VBA. Հեռացրեք բոլոր ոչ թվային նիշերը

Sub RemoveNotNum()
'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
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

2. Այնուհետեւ կտտացրեք Կոդը գործարկելու կոճակը, Բացվող պատուհանում KutoolsforExcel երկխոսության տուփ, ընտրեք մի շարք ոչ թվային նիշերով, որը ցանկանում եք հեռացնել, և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,

փաստաթուղթը հեռացնել ոչ թվային նիշերից 1 օրինակ

3, Դրանից հետո ընտրված տիրույթում բոլոր ոչ թվային նիշերը հանվում են:

փաստաթուղթը հեռացնել ոչ թվային նիշերից 2

Եթե ​​տասնորդական կետերով թվերը կարող եք օգտագործել հետևյալ VBA- ն.

Sub RemoveNotNum()
'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
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

Արդյունքները կարող եք տեսնել, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

փաստաթուղթը հեռացնել ոչ թվային նիշերից 3


Հարմար գործիք `մեկ սեղմումով ոչ թվային նիշերը հեռացնելու համար

Մի շարք ոչ թվային նիշերը հեռացնելու համար, Excel- ի համար նախատեսված գործիքներ'S Հեռացնել նիշերը կոմունալը կարող է դա անել մեկ կտտոցով:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում ենք վարվել ինչպես ստորև ՝

1, Նշեք այն տիրույթը, որը ցանկանում եք հեռացնել ոչ թվային նիշերը: Սեղմել Կուտոլս > Տեքստ > Հեռացնել նիշերը.

փաստաթուղթը հեռացնել ոչ թվային նիշերից 4

2, Մեջ Հեռացնել նիշերը երկխոսության տուփ, ստուգեք Ոչ թվային տարբերակը Հեռացնել նիշերը բաժինը, ապա կտտացրեք OK or Դիմել կոճակ Եվ ոչ թվային նիշերը անմիջապես հանվում են ընտրությունից: Տեսեք,

փաստաթուղթը հեռացնել ոչ թվային նիշերից 5

Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:

Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Հեռացնել նիշերը Excel- ի համար Kutools- ը, այցելեք Հեռացնել նիշերի հատկությունների նկարագրությունը:


Դեմո. Բջիջներից հեռացրեք թվային, այբբենական, ոչ տպվող կամ այբբենական նիշերը

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեկնաբանությունների օրինակելի կոդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն լավ աշխատեցիր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ավելի լավ չէր լինի փոխարինել մուտքագրման տուփի մեթոդը՝ պարզապես WorkRng-ը դնելով այսպես. Set WorkRng = Intersect (ActiveSheet.UsedRange, Selection) այս կերպ, եթե օգտագործողը ընտրի մի ամբողջ սյունակ, այն ոչ մի սխալ չի առաջացնի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի է աշխատել ՀԻԱՍՏ!!!!!!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վայ։ դա աշխատեց, հենց այն, ինչ ինձ անհրաժեշտ էր: շնորհակալություն,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սխալ ստացա, երբ մշակողի մեջ սեղմեցի > գործարկել կոճակը. Կազմելու սխալ. սպասվում է: հայտարարության ավարտը և ոչ թվային մեջ «ոչ» բառը ընդգծված է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործեք այս բանաձևը՝ գոյություն ունեցող նիշը նորով փոխարինելու համար =SUBSTITUTE(text,old_text,new_text,[instance_num]) ex-=SUBSTITUTE(TRIM(G1),"/","") Մաղթում եմ բոլորիդ Շնորհավոր Զատիկ 2015 թ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն տղաներին նման լավ աշխատանքի համար: Սցենարը հիանալի է, և այն աշխատեց: Շարունակեք այդպես, տղերք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարզապես ուզում էի ձեզ տեղեկացնել, որ եթե տողը սկսվում է զրոյով (ներ)ով կամ սկսվում է տառերով, որին հաջորդում է զրոյ (ներ), որին հաջորդում է տողի մնացած մասը, դա կհեռացնի բոլոր սկզբնական զրոները: Սա տարօրինակ է, քանի որ այն չի հեռացնում զրո(ները), եթե դրանք գտնվում են տողի ներսում այլ ոչ զրոյական թվերի միջև, միայն եթե դրանք սկսում են տողը կամ առաջին համարներն են տողի սկզբնական տառերից հետո: Օրինակ. 0060100-ը դուրս կգա որպես 60100 PFF057726-ը դուրս կգա որպես 57726: Տեղեկացրեք ինձ, եթե ունեք դրա բացատրությունը և կարող եք լուծում գտնել: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ուղարկեք ինձ իմ էլփոստի id-ով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես ուզում եմ օգտագործել այս մակրոն, բայց ուզում եմ նախապես սահմանել տիրույթ: Խնդրում եմ, կարող եք տեղեկացնել ինձ, թե ինչպես նախապես սահմանել միջակայքը: Շնորհակալություն, Սամիթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA-ն հիանալի է աշխատում: Ես այն փոփոխել եմ, որպեսզի միշտ աշխատի սյունակի վրա, ինչպես ցույց է տրված.

Տարածքի յուրաքանչյուր բջիջի համար («B2:B» և ActiveSheet.UsedRange.Rows.Count)

xOut = ""

i = 1 To Len-ի համար (Cell.Value)

xTemp = Mid (Cell.Value, i, 1)

Եթե ​​xTemp Like «[0-9]», ապա

xStr = xTemp

Ուրիշ

xStr = ""

Վերջ: Եթե

xOut = xOut & xStr

Հաջորդ i

Cell.Value = xOut

հաջորդ

Ես նաև օգտագործել եմ սա սյունակը վերջին թվանշանով տեսակավորելու համար՝ վերջին մասը փոխելով Cell.Value = Right(xOut, 1), այնուհետև թվային կարգով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HI Շնորհակալություն կոդավորման համար, ես ստանում եմ շարահյուսական սխալ, որն ընդգծված է For i = 1 To Len(Rng.Value) վրա, իսկ վրիպազերծումը Sub RemoveNotNum()-ը ընդգծված է դեղին գույնով: Խնդրում ենք խորհուրդ տալ:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից