Ugrás a tartalomra

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ő.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

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:

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations