Ինչպե՞ս Excel- ում դուրս բերել համարը միայն տեքստի տողից:

Մեթոդ 1. Թիվը հանիր միայն բանաձևով տեքստային տողերից

Մեթոդ 2. Թիվը հանեք միայն VBA կոդով տեքստային տողերից

Մեթոդ 3. Excel- ի համար Kutools- ի հետ հանեք համարը միայն տեքստի տողից

Մեթոդ 4. Տասնորդ համարը հանիր միայն բանաձևով տեքստի տողից

Մեթոդ 1. Թիվը հանիր միայն բանաձևով տեքստային տողերից

Հետևյալ երկար բանաձևը կարող է օգնել տեքստային տողերից հանել միայն թվերը, խնդրում ենք արեք հետևյալ կերպ.

Ընտրեք դատարկ բջիջ, որտեղ ցանկանում եք արդյունահանել արդյունահանվող համարը, ապա մուտքագրել այս բանաձևը. = SUMPRODUCT (MID (0 & A5, LARGE (INDEX (ISNUMBER (- MID (A5, ROW (INDIRECT ("1:" & LEN (A5)))), 1)) * ROW (INDIRECT ("1:" & LEN (A5) )), 0), ROW (INDIRECT ("1:" & LEN (A5)))) + 1, 1) * 10 ^ ROW (INDIRECT ("1:" & LEN (A5))) / 10), ապա քաշեք լրացման բռնիչը ՝ լրացնելու համար այն շարքը, որն անհրաժեշտ է այս բանաձևը կիրառելու համար: Տեսեք,

Նշումներ:

• 1. A5 կանգնած է առաջին տվյալներից, որոնք ցանկանում եք թվեր հանել միայն ցուցակից:
• 2. Արդյունքը ցույց կտա որպես 0, երբ լարում թվեր չկան:

Մեթոդ 2. Թիվը հանեք միայն VBA կոդով տեքստային տողերից

Ահա VBA կոդ, որը կարող է նաև ձեզ լավություն պատճառել, արեք հետևյալ կերպ.

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

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Հանեք համարը միայն տեքստի տողից.

Sub ExtrNumbersFromRange()
    Dim xRg As Range
    Dim xDRg As Range
    Dim xRRg As Range
    Dim nCellLength As Integer
    Dim xNumber As Integer
    Dim strNumber As String
    Dim xTitleId As String
    Dim xI As Integer
    xTitleId = "KutoolsforExcel"
    Set xDRg = Application.InputBox("Please select text strings:", xTitleId, "", Type:=8)
    If TypeName(xDRg) = "Nothing" Then Exit Sub
    Set xRRg = Application.InputBox("Please select output cell:", xTitleId, "", Type:=8)
    If TypeName(xRRg) = "Nothing" Then Exit Sub
    xI = 0
    strNumber = ""
  For Each xRg In xDRg
    xI = xI + 1
    nCellLength = Len(xRg)
    For xNumber = 1 To nCellLength
      If IsNumeric(Mid(xRg, xNumber, 1)) Then
        strNumber = strNumber & Mid(xRg, xNumber, 1)
      End If
    Next xNumber
    xRRg.Item(xI) = strNumber
    strNumber = ""
  Next xRg
End Sub

3, Եվ հետո, սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշում է արկղը ՝ հիշեցնելու համար ընտրելով տեքստի տիրույթը, որը ցանկանում եք օգտագործել, տե՛ս նկարը.

4, Դրանից հետո կտտացրեք OK, հետևում է մեկ այլ արագ տուփ, ընտրեք բջիջ արդյունքը դուրս բերելու համար, տես նկարի նկարը.

5, Վերջապես կտտացրեք OK կոճակը, և ընտրված բջիջների բոլոր համարները միանգամից արդյունահանվել են:

Մեթոդ 3. Excel- ի համար Kutools- ի հետ հանեք համարը միայն տեքստի տողից

Excel- ի համար նախատեսված գործիքներ ունի նաև հզոր գործառույթ, որը կոչվում է ԲԱTRԱՀԱՅՏՆԵՐ, այս գործառույթի միջոցով դուք կարող եք արագ դուրս բերել միայն համարները բնօրինակ տեքստի տողերից:

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

1, Սեղմեք բջիջը, բացի ձեր տեքստի տողից, որտեղ դուք կտեղադրեք արդյունքը, տես նկարի նկարը.

2. Այնուհետեւ կտտացրեք Կուտոլս > Kutools գործառույթները > Տեքստ > ԲԱTRԱՀԱՅՏՆԵՐ, տես նկարի նկարը.

3, Մեջ Գործառույթի փաստարկները երկխոսություն, ընտրեք այն բջիջը, որը ցանկանում եք արդյունքները դուրս բերել Տեքստ տեքստային տուփ, ապա մուտքագրեք ճիշտ or սուտ մեջ N տեքստային տուփ, տես նկարի նկարը.

Նշումփաստարկը N մուտքագրելու դեպքում ընտրովի նյութ է ճիշտ, այն թվերը կվերադարձնի որպես թվային, եթե մուտքագրեք սուտ, դա թվերը կվերադարձնի որպես տեքստի ձևաչափ, լռելյայնը կեղծ է, այնպես որ կարող եք այն թողնել դատարկ:

4. Եվ այնուհետեւ կտտացրեք OK, համարները արդյունահանվել են ընտրված բջիջից, այնուհետև լրացնելու բռնիչը ներքև քաշեք դեպի այն բջիջները, որոնք ցանկանում եք կիրառել այս գործառույթը, կստանաք հետևյալ արդյունքը.

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

Մեթոդ 4. Տասնորդ համարը հանիր միայն բանաձևով տեքստի տողից

Եթե ​​ձեր աշխատաթերթում որոշ տասնորդական թվեր ներառող տեքստի տողերը, ապա ինչպե՞ս կարող եք տեքստային տողերից հանել միայն տասնորդական թվերը:

Ստորև բերված բանաձևը կօգնի ձեզ արագ և հեշտությամբ հանել տասնորդական թվերը տեքստային տողերից:

Մուտքագրեք այս բանաձևը=LOOKUP(9.9E+307,--LEFT(MID(A5,MIN(FIND({1,2,3,4,5,6,7,8,9,0}, $A5&"1023456789")),999),ROW(INDIRECT("1:999"))))， Եվ այնուհետև լրացրեք բռնակը դեպի այն բջիջները, որոնք ցանկանում եք պարունակել այս բանաձևը, բոլոր տասնորդական թվերը հանվել են տեքստի տողերից, տե՛ս նկարը.

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

• Հերծ տեքստը հանեք միայն Excel- ում
• Տեքստը հանեք միայն Excel- ում