Hogyan lehet kibontani a számokat vegyes alfanumerikus szöveges karakterláncokból az Excelben?

Ez az oktatóanyag három módszert kínál a számok kibontására az Excel vegyes alfanumerikus szöveges karakterláncaiból.

Számok kivonása vegyes alfanumerikus szöveges karakterláncokból képlettel
Számok kivonása VBA kóddal ellátott vegyes alfanumerikus szöveges karakterláncokból
Egy csodálatos eszközzel egyszerűen kivonhatja a számokat a vegyes alfanumerikus szöveges karakterláncokból

Számok kivonása vegyes alfanumerikus szöveges karakterláncokból képlettel

Az alábbi képletet alkalmazhatja a számok kibontására az Excel szöveges karakterláncának bárhonnan.

1. Válasszon egy üres cellát a kibontott számok kiadásához, írja be az alábbi képletet, és nyomja meg a belép kulcs. Ezután húzza lefelé az Automatikus kitöltési fogantyút a képlet más cellákra való alkalmazásához.

=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")

Megjegyzések: A képletben az A1 az a cella, amely a számokat kibontani kívánt szöveges karaktersorozatot keresztezi. Kérjük, változtassa meg az Ön igényei szerint.

Ezután a számokat a szöveges karakterlánc bárhonnan kivonják a megadott cellákba, ahogy a fenti képernyőkép mutatja.

Csak VBA kóddal ellátott vegyes alfanumerikus szöveges karakterláncokban tartsa a számokat

A következő VBA-kód segíthet eltávolítani az összes nem numerikus karaktert a megadott tartományból, és csak számokat tarthat a cellákban. Kérjük, tegye a következőket.

Megjegyzések: Mivel a kód közvetlenül végrehajtja az eredeti tartományt, kérjük, őrizze meg az eredeti tartomány másolatát az adatok elvesztése esetén.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.

VBA kód: távolítsa el az összes nem numerikus karaktert a cellákból

Sub GetNumbers()
'Updated by Extendoffice 20210125
    Dim xRegEx As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRegEx = CreateObject("VBScript.RegExp")
    With xRegEx
        .Pattern = "\D+"
        .IgnoreCase = True
        .Global = True
    End With
    xRg.NumberFormat = "@"
    For Each xCell In xRg
        xCell.Value = xRegEx.Replace(xCell.Value, "")
    Next
    Set xRegEx = Nothing
End Sub

3. megnyomni a F5 gombot a kód futtatásához. Aztán a Kutools az Excel számára megjelenik a párbeszédpanel, válassza ki azt a tartományt, amely tartalmazza a vegyes alfanumerikus szöveges karakterláncokat, és csak a számokat fogja megtartani, majd kattintson a OK gombot.

Most a kiválasztott tartomány összes nem numerikus karakterét azonnal eltávolította, és csak a számokat őrizte meg. Lásd a képernyőképet:

Könnyen kinyerhet számokat vegyes alfanumerikus karakterláncokból a Kutools for Excel segítségével

Ez a szakasz a Kutools for Excel szövegkivonat segédprogramját ajánlja. Ezzel a segédprogrammal a számok kinyerése szöveges karakterláncból könnyen kezelhető.

1. kettyenés Kutools > szöveg > Kivonat szöveg a funkció engedélyezéséhez.

2. Ban,-ben Kivonat szöveg párbeszédpanelt, kérjük, hajtsa végre az alábbi beállításokat.

2.1) Kattintson a gombra Kivonat hely szerint fül (Ez a fül alapértelmezés szerint engedélyezett);

2.2) A Választék szakaszban kattintson a gombra, hogy kiválassza a cellák tartományát, amelyből kivonja a szöveget;

2.3) A Opciók szakasz: Válassza ki a Bontsa ki a számot választási lehetőség;

2.4) Kattintson OK.

Jegyzet: Ellenőrizd a Beszúrás képletként A párbeszédpanel bal alsó sarkában található mező képletként beilleszti az eredményt az eredmény cellákba. Amikor a hivatkozott cella értéke megváltozik, az eredmény automatikusan frissül.

3. Ban,-ben Kivonat szöveg párbeszédpanelen válasszon ki egy üres cellát a kibontott szöveg megjelenítéséhez, majd kattintson a gombra OK.

Ezután a szöveges karaktersorozat bármely pozíciójából kivonják a számokat. Lásd a képernyőképet: