Kako v Excelu izvleči številko samo iz besedilnega niza?

1. način: Izvlecite številko samo iz besedilnih nizov s formulo

2. način: Izvlecite številko samo iz besedilnih nizov s kodo VBA

3. način: s Kutools za Excel izvlecite številko samo iz besedilnega niza

4. način: Iz besedilnega niza s formulo izvlecite samo decimalno število

1. način: Izvlecite številko samo iz besedilnih nizov s formulo

Naslednja dolga formula vam lahko pomaga, da iz besedilnih nizov izvlečete samo številke, naredite tako:

Izberite prazno celico, v katero želite izvleči številko, nato vnesite to formulo: = SUMPRODUCT (MID (0 & A5, LARGE (INDEX (ISUMBER (- 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)in nato povlecite ročico za polnjenje, da zapolnite obseg, ki ga potrebujete za uporabo te formule. Oglejte si posnetek zaslona:

Opombe:

• 1. A5 stoji prvi podatek, ki ga želite črpati samo s seznama.
• 2. Rezultat bo prikazan kot 0, če v nizu ni številk.

2. način: Izvlecite številko samo iz besedilnih nizov s kodo VBA

Tu je koda VBA, ki vam lahko tudi naredi uslugo, storite naslednje:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Izvleči številko samo iz besedilnega niza:

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. In nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki bo opozorilo na izbiro obsega besedila, ki ga želite uporabiti, glejte posnetek zaslona:

4. Nato kliknite OK, sledi še eno pozivno polje, izberite celico za prikaz rezultata, glejte posnetek zaslona:

5. Končno kliknite OK in vse številke v izbranih celicah so bile izvlečene hkrati.

3. način: s Kutools za Excel izvlecite številko samo iz besedilnega niza

Kutools za Excel ima tudi močno funkcijo, ki se imenuje ŠTEVILO ŠTEVILK, s to funkcijo lahko hitro izvlečete samo številke iz prvotnih besedilnih nizov.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite celico poleg besedilnega niza, kamor boste postavili rezultat, glejte posnetek zaslona:

2. Nato kliknite Kutools > Kutools funkcije > Besedilo > ŠTEVILO ŠTEVILK, glej posnetek zaslona:

3. v Argumenti funkcije v pogovornem oknu izberite celico, v katero želite izvleči številke iz Txt in vnesite Res or false v N besedilno polje, glej posnetek zaslona:

Opombe: argument N je neobvezen element, če vnesete Res, če vnesete, bo vrnil številke kot številčne false, vrnil bo številke v obliki besedila, privzeta vrednost je false, zato jo lahko pustite prazno.

4. In nato kliknite OK, številke so bile izvlečene iz izbrane celice, nato povlecite ročico za polnjenje navzdol do celic, za katere želite uporabiti to funkcijo, dobili boste naslednji rezultat:

Kliknite za prenos in brezplačno preskusno različico Kutools za Excel zdaj!

4. način: Iz besedilnega niza s formulo izvlecite samo decimalno število

Če besedilni nizi, ki vključujejo nekaj decimalnih števil na vašem delovnem listu, kako lahko iz besedilnih nizov izvlečete samo decimalna števila?

Spodnja formula vam lahko pomaga hitro in enostavno izvleči decimalna števila iz besedilnih nizov.

Vnesite to formulo:=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"))))， In nato izpolnite ročico do celic, ki jih želite vsebovati s to formulo, vsa decimalna števila so bila izvlečena iz besedilnih nizov, glejte posnetek zaslona:

Relativni članki:

• Izvleči krepko besedilo samo v Excelu
• Izvleči besedilo samo v Excelu