Ինչպե՞ս հեռացնել Excel- ում ոչ այբբենական թվերը:
Ենթադրելով, որ առկա է տվյալների մի շարք, ինչպես, օրինակ JAMES0898 # 4% ^ {}, որը աշխատանքային թերթում պարունակում է ոչ այբբենական թվեր, և այժմ դուք պարզապես ցանկանում եք հեռացնել ոչ ալֆան թվային նիշերը և պահպանել այբբենական նիշերը: Օրինակ, JAMES0898 # 4% ^ {} > JAMES0898- ը, Excel- ում ինչպե՞ս եք արագ ջնջում այդ ոչ այբբենական թվերը:
- Հեռացրեք ոչ այբբենական թվերը VBA կոդով
- Հեռացրեք ոչ ալֆանային թվերը `օգտագործողի կողմից սահմանված գործառույթով
- Excel- ի համար Kutools- ով հեռացրեք ոչ այբբենական թվերը
Հեռացրեք ոչ այբբենական թվերը VBA կոդով
Հետևյալ կարճ VBA կոդով դուք կարող եք հեռացնել նաև ոչ ալֆանային թվերը: Դուք կարող եք դա անել այսպես.
1. Մամուլ ալտ + F11 ստեղները միասին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներև ապա տեղադրեք VBA կոդի ներքո Մոդուլի մեջ.
VBA. Հեռացրեք բոլոր ոչ ալֆանային թվերը
Sub RemoveNotAlphasNotNum()
'Updateby2014128
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 "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Մամուլ F5 ստեղնը կամ սեղմել Վազում ծածկագիրը կատարելու համար:
4, Դրանից հետո ընտրեք մի տիրույթ, որը ցանկանում եք հեռացնել բոլոր ոչ ալֆանային թվերը `ելնող երկխոսության դաշտում և կտտացրեք այն OK կոճակը:
Այժմ բոլոր ոչ ալֆանային թվերը ջնջվել են ընտրված տիրույթից: Տեսեք,
2 կտտոց ՝ զարմանալի գործիքի միջոցով բոլոր ոչ այբբենական թվերը հեռացնելու համար
Մենք սովորաբար կուրսորը դնում ենք բջիջ և այնուհետև ձեռքով մեկ-մեկ հեռացնում ենք ոչ ալֆանային թվերը: Եթե դուք ծանոթ եք VBA- ի կամ օգտագործողի կողմից սահմանված գործառույթներին, կարող եք այն կոդավորել և զանգվածաբար հեռացնել բոլոր ոչ ալֆանային թվերը: Բայց այստեղ ես խորհուրդ կտամ զարմանալի գործիք, Հեռացնել նիշերը Kutools- ի համար Excel- ի համար, որը կարող է հեռացնել բոլոր տեսակի նիշերը միայն 2 կտտոցով:

Հեռացրեք ոչ ալֆանային թվերը `օգտագործողի կողմից սահմանված գործառույթով
Կարող եք նաև սահմանել հարմարեցված գործառույթ ՝ Excel- ի բոլոր բջիջներից ոչ ալֆանային թվերը հեռացնելու համար:
1. Մամուլ ալտ + F11 ստեղները միասին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներև ապա ներքևի կոդը տեղադրեք Մոդուլի մեջ.
Օգտագործողի կողմից սահմանված գործառույթ. Հեռացնել բոլոր ոչ ալֆանային թվանշանները
Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String
Dim xStrMode As String
Dim xInt As Integer
xStrMode = "[A-Z.a-z 0-9]"
xStrR = ""
For xInt = 1 To Len(xStr)
xCh = Mid(xStr, xInt, 1)
If xCh Like xStrMode Then
xStrR = xStrR & xCh
End If
Next
DeleteNonAlphaNumeric = xStrR
End Function
3, Այժմ վերադառնաք աշխատանքային թերթիկ, ընտրեք դատարկ բջիջ և մուտքագրեք բանաձևը = DeleteNonAlphaNumeric (B3), ապա քաշեք AutoFill բռնակի ներբեռնումը ՝ այս բանաձևը այլ բջիջների վրա կիրառելու համար:
Excel- ի համար Kutools- ով հեռացրեք ոչ այբբենական թվերը
Վերոնշյալ երկու մեթոդներով դուք պետք է իմանաք ծածկագրերը, բայց որպես Excel- ի սկսնակներ, մեզանից շատերը չեն կարող օգտագործել այդ ծածկագրերը, այնպես որ այստեղ ես ձեզ կտամ դա անելու հեշտ միջոց:
Excel- ի համար նախատեսված գործիքներ- Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Get It Now
Եթե Kutools- ը տեղադրել եք Excel- ի համար, դա արեք հետևյալ քայլերով.
1, Ընտրեք այն տիրույթը, որը ձեզ հարկավոր է ոչ ալֆան թվային նիշերը հեռացնելու համար, և կտտացրեք Կուտոլս > Տեքստ > Հեռացնել նիշերը.
2, Հետո ա Deleteնջել նիշերը կհայտնվի երկխոսության տուփ, միայն նշեք Ոչ ալֆանա-թվային տարբերակը եւ սեղմեք Ok կոճակը:
Այժմ բոլոր ոչ ալֆան թվային նիշերը ջնջվել են տեքստի տողերից:
Առնչվող հոդվածներ քանակը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:



