Hvordan udpakkes kun nummer fra tekststreng i Excel?

Metode 1: Uddrag kun nummer fra tekststrenge med formel

Metode 2: Uddrag kun nummer fra tekststrenge med VBA-kode

Metode 3: Uddrag kun nummer fra tekststreng med Kutools til Excel

Metode 4: Uddrag kun decimaltal fra tekststreng med formel

Metode 1: Uddrag kun nummer fra tekststrenge med formel

Den følgende lange formel kan hjælpe dig med kun at udtrække numrene fra tekststrengene, gør som dette:

Vælg en tom celle, hvor du vil sende det udpakkede nummer, og skriv derefter denne formel: = SUMPRODUCT (MIDT (0 & A5, STORT (INDEKS (ISNUMBER (- MIDT (A5, Række (INDIREKTE ("1:" & LENNE (A5))), 1)) RÆDE (INDIREKTE ("1:" & LENNE (A5) )), 0), RÆDE (INDIREKTE ("1:" & LENNE (A5)))) + 1, 1) * 10 ^ Række (INDIREKTE ("1:" & LENNE (A5))) / 10), og træk derefter fyldhåndtaget for at udfylde det interval, du har brug for for at anvende denne formel. Se skærmbillede:

Bemærkninger:

• 1. A5 står de første data, du kun vil udtrække numre fra listen.
• 2. Resultatet vises som 0, når der ikke er nogen tal i strengen.

Metode 2: Uddrag kun nummer fra tekststrenge med VBA-kode

Her er en VBA-kode, som også kan gøre dig en tjeneste, gør som følger:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Uddrag kun nummer fra tekststreng:

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. Og tryk derefter på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde om at vælge det tekstområde, du vil bruge, se skærmbillede:

4. Klik derefter på OK, en anden promptboks følger, vælg en celle for at output resultatet, se skærmbillede:

5. Endelig skal du klikke på OK knappen, og alle numre i de valgte celler er blevet ekstraheret på én gang.

Metode 3: Uddrag kun nummer fra tekststreng med Kutools til Excel

Kutools til Excel har også en kraftig funktion, der kaldes UDTALNINGSNUMMERE, med denne funktion kan du hurtigt kun udtrække numrene fra de originale tekststrenge.

Efter installation Kutools til Excelskal du gøre som følger:

1. Klik på en celle udover din tekststreng, hvor du vil placere resultatet, se skærmbillede:

2. Klik derefter på Kutools > Kutools funktioner > tekst > UDTALNINGSNUMMERE, se skærmbillede:

3. I Funktionsargumenter dialog, skal du vælge en celle, som du vil udtrække tallene fra txt tekstfelt, og indtast derefter sand or falsk ind i N tekstboks, se skærmbillede:

Bemærk: argumentet N er et valgfrit element, hvis du indtaster sand, returnerer tallene som numeriske, hvis du indtaster falsk, det returnerer tallene som tekstformat, standard er falsk, så du kan lade det være tomt.

4. Og klik derefter på OK, tallene er udvundet fra den valgte celle, og træk derefter fyldhåndtaget ned til de celler, du vil anvende denne funktion, får du følgende resultat:

Klik for at downloade og gratis prøveversion Kutools til Excel nu!

Metode 4: Uddrag kun decimaltal fra tekststreng med formel

Hvis tekststrengene, som inkluderer nogle decimaltal i dit regneark, hvordan kan du kun udtrække decimaltalene fra tekststrengene?

Nedenstående formel kan hjælpe dig med at udtrække decimaltalene fra tekststrengene hurtigt og nemt.

Indtast denne formel ：=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"))))， Og udfyld derefter håndtaget ned til de celler, som du vil indeholde denne formel, alle decimaltal er blevet ekstraheret fra tekststrengene, se skærmbillede:

Relative artikler:

• Uddrag kun fed tekst i Excel
• Uddrag kun tekst i Excel