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

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

Ենթադրելով, որ առկա է տվյալների մի շարք, ինչպես, օրինակ JAMES0898 # 4% ^ {}, որը աշխատանքային թերթում պարունակում է ոչ այբբենական թվեր, և այժմ դուք պարզապես ցանկանում եք հեռացնել ոչ ալֆան թվային նիշերը և պահպանել այբբենական նիշերը: Օրինակ, JAMES0898 # 4% ^ {} > JAMES0898- ը, Excel- ում ինչպե՞ս եք արագ ջնջում այդ ոչ այբբենական թվերը:


Հեռացրեք ոչ այբբենական թվերը 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 կոճակը:

Այժմ բոլոր ոչ ալֆան թվային նիշերը ջնջվել են տեքստի տողերից:


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

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

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

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

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do you remove the characters while keeping the space separator?
This comment was minimized by the moderator on the site
VBA method worked, but only works on the selected range. You cannot specify the output into a different range of cells than the input. So you must copy the source data into the target range, select the data, run the script and allow it to output to the default range. Also, the period (.) is not considered a special character, so if you want to remove those too, you'll need to search and replace.
This comment was minimized by the moderator on the site
Thanks for sharing, but still don't like the input-box method... :D
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations