Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet eltávolítani a nem numerikus karaktereket az Excel celláiból?

Tegyük fel, hogy van munkalapja sok ilyen adattal ABCD4578124YUIOH, és csak a nem numerikus karaktereket szeretné eltávolítani  ABCDYUIOH de a numerikus karaktereket tartsa cellákban. Természetesen ezeket a karaktereket egyenként eltávolíthatja, de itt gyorsan megszabadulhat a cellák nem numerikus karaktereitől az alábbiak szerint:

Távolítsa el a nem numerikus karaktereket VBA kóddal

Hasznos eszköz a nem numerikus karakterek egyetlen kattintással történő eltávolítására


Távolítsa el a nem numerikus karaktereket VBA kóddal

Ha nem numerikus karaktereket szeretne eltávolítani a VBA kóddal ellátott tartományból, tegye a következőket:

1. Kattints Fejlesztő > Visual Basic megnyitni Microsoft Visual Basic alkalmazásokhoz ablak. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok, majd másolja és illessze be a következő kódokat a modulba:

VBA: Távolítson el minden nem numerikus karaktert

Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

2. Ezután kattintson a gombot a kód futtatásához, A felbukkanó ablakban KutoolsforExcel párbeszédpanelen jelöljön ki egy tartományt az eltávolítani kívánt nem numerikus karakterekkel, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

doc nem numerikus karakterek eltávolítása 1 példány

3. Ezután a kiválasztott tartomány összes nem numerikus karakterét eltávolítja.

doc távolítsa el a nem numerikus karaktereket 2

Ha a számok tizedespontosak, akkor a következő VBA-t használhatja:

Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

Az eredményeket az alábbi képernyőképen láthatja:

doc távolítsa el a nem numerikus karaktereket 3


Hasznos eszköz a nem numerikus karakterek egyetlen kattintással történő eltávolítására

A nem numerikus karakterek eltávolításához egy tartományban Kutools az Excel számára'S Karakterek eltávolítása segédprogram egy kattintással elvégezheti.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye az alábbiak szerint:

1. Jelölje ki a nem numerikus karakterek eltávolítani kívánt tartományát. Kattintson a gombra Kutools > szöveg > Karakterek eltávolítása.

doc távolítsa el a nem numerikus karaktereket 4

2. Az Karakterek eltávolítása párbeszédpanelen ellenőrizze a Nem numerikus lehetőség a Karakterek eltávolítása szakaszra, majd kattintson a gombra OK or alkalmaz gomb. És a nem numerikus karaktereket azonnal eltávolítja a kijelölésből. Lásd a képernyőképet:

doc távolítsa el a nem numerikus karaktereket 5

Kattintson a Kutools for Excel és az ingyenes próbaverzió letöltéséhez!

Részletesebb információk a Karakterek eltávolítása a Kutools for Excel programot, kérjük, látogasson el Távolítsa el a karakterek jellemzőinek leírását.


Bemutató: Távolítson el numerikus, alfabetikus, nem nyomtatható vagy alfanumerikus karaktereket a cellákból

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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 minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (13)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
minta kód a megjegyzésekhez
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm jól dolgoztál
A weboldal moderátora ezt a megjegyzést minimalizálta
nem lenne jobb az input-box metódus helyett egyszerűen a WorkRng beállításával: Set WorkRng = Intersect(ActiveSheet.UsedRange, Selection), így ha a felhasználó egy teljes oszlopot választ ki, az nem generál hibát.
A weboldal moderátora ezt a megjegyzést minimalizálta
Csodálatos munka NAGYON!!!!!!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Azta. ez működött, pontosan arra volt szükségem. Kösz,
A weboldal moderátora ezt a megjegyzést minimalizálta
Hibaüzenetet kaptam, amikor megnyomtam a > futtatás gombot a fejlesztőben: Fordítási hiba: Várható: az utasítás vége és a nem numerikus "non" szó kiemelve
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezzel a képlettel cserélje le a meglévő karaktert az új karakterre =SUBSTITUTE(szöveg,régi_szöveg,új_szöveg,[példányszám]) for ex-=SUBSTITUTE(TRIM(G1),"/","") Kellemes húsvéti ünnepeket kívánok 2015-ben
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm srácok ezt a szép munkát. A forgatókönyv fantasztikus, és bevált. Csak így tovább srácok.
A weboldal moderátora ezt a megjegyzést minimalizálta
Csak szeretném tudatni veled, hogy ha a karakterlánc nullával kezdődik, vagy betűkkel kezdődik, utána nulla(k), majd a karakterlánc többi része, akkor ez eltávolítja az összes kezdő nullát. Ez azért furcsa, mert nem távolítja el a nullá(ka)t, ha azok a karakterláncon belül más, nem nullától eltérő számok között vannak, csak akkor, ha ezek kezdik a karakterláncot, vagy az első számok a karakterlánc kezdőbetűi után. Példa. A 0060100 60100-ként jön ki a PFF057726, mint az 57726. Szóljon, ha van erre magyarázata, és tud megoldást találni. Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Küldd el az email azonosítómra
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Szeretném használni ezt a makrót, de szeretnék előre meghatározni egy tartományt. Kérem, tudassa velem, hogyan lehet előre meghatározni a tartományt. Köszönöm, Samit
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA remekül működik. Módosítottam, hogy mindig egy oszlopon működjön, ahogy az ábra mutatja:

Minden egyes cellához a tartományban ("B2:B" & ActiveSheet.UsedRange.Rows.Count)

xOut = ""

Ha i = 1 Len(Cell.érték)

xTemp = közép (Cell.érték, i, 1)

Ha xTemp Like "[0-9]" Akkor

xStr = xTemp

Más

xStr = ""

Ha véget

xOut = xOut & xStr

Következő i

Cell.Value = xOut

Következő

Ezt használtam egy oszlop utolsó számjegy szerinti rendezésére is, az utolsó részt Cell.Value = Right(xOut, 1) értékre változtatva, majd numerikusan rendeztem.
A weboldal moderátora ezt a megjegyzést minimalizálta
SZia! Köszönjük a kódolást, a For i = 1 To Len(Rng.Value)-n a szintaktikai hibát kapom kiemelve, és a hibakeresési Sub RemoveNotNum() sárgával van kiemelve.. kedves tanács.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek