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

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

Ինչպես ցույց է տրված նկարից ներքևում, այդ բջիջների համար, որոնք խառնված են թվերի և տեքստերի հետ, ինչպե՞ս հեռացնել բոլոր տեքստերը և միայն թվերը պահել բջիջներում: Այս հոդվածի մեթոդները կարող են օգնել ձեզ:

Հեռացրեք միայն օգտագործողի կողմից սահմանված գործառույթ ունեցող թվեր և տեքստեր պարունակող բջիջներից միայն տեքստը
Excel- ի համար Kutools- ով հեշտությամբ հեռացրեք միայն տեքստերը բջիջներից, որոնք պարունակում են թվեր և տեքստեր


Հեռացրեք միայն օգտագործողի կողմից սահմանված գործառույթ ունեցող թվեր և տեքստեր պարունակող բջիջներից միայն տեքստը

Նշված բջիջներից տեքստերը հեռացնելու և միայն թվեր պահելու համար կարող եք նաև օգտագործել օգտագործողի կողմից սահմանված ստորև նշված գործառույթը:

1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Կոդ պատուհան Տեսեք,

VBA կոդ. Թվեր և տեքստեր պարունակող բջիջներից հեռացրեք միայն տեքստը

Function OnlyNums(strWord As String)
    Dim strChar As String
    Dim x As Integer
    Dim strTemp As String

    strTemp = ""
    Application.ScreenUpdating = False
    For x = 1 To Len(strWord)
        strChar = Mid(strWord, x, 1)
        If Asc(strChar) >= 48 And _
          Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
        End If
    Next
    Application.ScreenUpdating = True
    OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

4. Ընտրեք դատարկ բջիջ, մուտքագրեք բանաձև = OnlyNums (A2) մտնել Formula Bar, ապա սեղմել կոճակը Մտնել արդյունքը ստանալու բանալին: Շարունակեք ընտրել արդյունքի բջիջը, քաշեք նրա Լրացնելու բռնակը ներքև ՝ բոլոր արդյունքները ստանալու համար: Տեսեք,

ՆշումԲանաձևում: A2- ն այն բջիջն է, որը դուք կհեռացնեք տեքստերը և կպահեք միայն թվեր: Խնդրում եմ փոխեք այն, ինչ ձեզ հարկավոր է:

Այժմ դուք կարող եք տեսնել, որ բոլոր տեքստերը հանվում են, և միայն համարները պահվում են նշված բջիջներում:


Excel- ի համար Kutools- ով հեշտությամբ հեռացրեք միայն տեքստերը բջիջներից, որոնք պարունակում են թվեր և տեքստեր

Այս բաժինը խորհուրդ է տալիս Հեռացնել նիշերը օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Այս օգտակար ծառայության միջոցով դուք կարող եք բջիջներից հեռացնել բոլոր ոչ թվային նիշերը ընդամենը մի քանի կտտոցով և միայն թվերը պահել բջիջներում: Խնդրում եմ, արեք հետևյալ կերպ.

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

1. Ընտրեք այն բջիջները, որոնք ձեզ հարկավոր են տեքստերը հեռացնելու և միայն թվեր պահելու համար, ապա կտտացրեք Կուտոլս > Տեքստ > Հեռացնել նիշերը

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

Դրանից հետո բոլոր ոչ թվային նիշերը (տեքստերը) հանվում են ընտրված բջիջներից անմիջապես, ինչպես ցույց է տրված նկարում:

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


Առնչվող հոդված:

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

🤖 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The issue I encountered was the slowdown of my Excel upon opening.
This comment was minimized by the moderator on the site
Bonjour,

Si on veut conserver les virgules avec les chiffres, comment peut-on faire? Merci pour votre réponse
This comment was minimized by the moderator on the site
Hi Enzo,

Sorry I don't quite understand your question. For clarity, please attach a sample file or a screenshot with your data and desired results.
This comment was minimized by the moderator on the site
Hallo, zusammen
Ich finde die VBA super und genau das was ich für meinen Job benötige. Jedoch eine Frage an euch Spezialisten, wenn ich führende Nullen habe dann funktioniert die VBA bei mir nicht, gibt's da einen Trick damit dies auch geht? Grüße
This comment was minimized by the moderator on the site
Hi Rolands,
Sorry I don't quite understand what you mean. Do you want to keep the leading zeros after removing only the texts from cells?
Or you can upload a screenshot of your data here to describe the problem more clearly.
This comment was minimized by the moderator on the site
I have used excel for years but not a power worker never used Visual Basic in a spreadsheet before. This method worked absolutely first time just following the clear instructions above and saved me hours cleaning up an imported Sheet. Many thanks - much appreciated. Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations