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

Օրինակ, դուք ունեք մի տիրույթի տվյալներ, ինչպիսիք են Յակոբ «001» @ # $%, և ցանկանում եք լարից հանել բոլոր ոչ ալֆա նիշերը, որպեսզի այն պահպանվի որպես այդպիսին Jacob, Excel- ում ինչպե՞ս կարող եք արագ հեռացնել բոլոր ոչ ալֆա նիշերը բջիջներից:

VBA կոդով բջիջներից հեռացրեք ոչ ալֆա նիշերը

Excel- ի համար Kutools- ով արագորեն հանեք ոչ ալֆա նիշերը բջիջներից

VBA կոդով բջիջներից հեռացրեք ոչ ալֆա նիշերը

Զարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel-ում, ինչպիսիք են Chrome-ը, Edge-ը, Firefox-ը և Safari-ն:
Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

VBA կոդի միջոցով դուք կարող եք հեռացնել ոչ ալֆա նիշերը և պահպանել միայն ալֆա նիշերը (ազ) բջիջներում, որպես հետևյալ քայլեր.

1. Նշեք այն տիրույթը, որը ցանկանում եք հեռացնել բոլոր ոչ ալֆա նիշերը:

2: սեղմեք Երեվակիչ > Visual Basic, կցուցադրվի նոր Microsoft Visual Basic ծրագրերի համար, կտտացրեք Տեղադրել > Մոդուլներ, ապա մուտքագրեք հետևյալ կոդը Մոդուլներ:

VBA. Հեռացնել բոլոր ոչ ալֆա նիշերը բջիջներից

Sub RemoveNotAlphas()
'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.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Եվ հետո կտտացրեք  կոդ ՝ կոդն աշխատեցնելու համար: Էկրանի վրա ցուցադրվում է երկխոսություն, որպեսզի ընտրեք մի տիրույթ, որը ցանկանում եք հեռացնել բոլոր ոչ ալֆա նիշերը: Տեսեք,

4. Այնուհետեւ կտտացրեք OK, բոլոր ոչ ալֆա նիշերը հանվել են: Տեսեք,

Excel- ի համար Kutools- ով արագորեն հանեք ոչ ալֆա նիշերը բջիջներից

Եթե ​​VBA մակրո օգտագործելով չեք ցանկանում հեռացնել բոլոր ոչ ալֆա նիշերը, գուցե նախընտրեք օգտագործել այն Deleteնջել նիշերը գործիք Excel- ի համար նախատեսված գործիքներ.

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

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք հեշտությամբ և հարմարավետորեն հեռացնել բոլոր ոչ ալֆա նիշերը մի շարք բջիջներից:

1. Ընտրեք այն տիրույթը, որը ցանկանում եք հեռացնել ոչ ալֆա նիշերը:

2: սեղմեք Կուտոլս > Տեքստային գործիքներ > Deleteնջել նիշերը, տես նկարի նկարը.

3. The Deleteնջել նիշերը կհայտնվի երկխոսության տուփ: Դրանից հետո ստուգեք Ոչ ալֆա նիշ ընտրություն Deleteնջել նիշերը երկխոսության տուփ: Միևնույն ժամանակ, արդյունքը կարող եք դիտել ՝ Preview Վահանակ Տեսեք,

4. Եվ հետո կտտացրեք OK or Դիմել, Ոչ ալֆա բոլոր նիշերը կհեռացվեն:

Այս օգտակար ծրագիրը կարող է նաև ջնջել թվային նիշերը, ոչ թվային նիշերը, չտպող նիշերը և այլն: Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Deleteնջել նիշերը, Խնդրում ենք այցելել Deleteնջել Նիշերի հատկությունների նկարագրությունը.

Հարաբերական հոդվածներ.

• Հեռացրեք ալֆա նիշերը բջիջներից
• Բջիջներից հեռացնել ոչ թվային նիշերը
• Հեռացրեք թվային նիշերը բջիջներից
• Բջիջներից հանեք ոչ տպվող նիշերը
• Արագորեն հեռացրեք գծերի ընդմիջումները
• Հեռացնել ոչ այբբենական թվերի նիշերը

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

🤖	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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...