Ugrás a tartalomra

Hogyan lehet eltávolítani a nem alfanumerikus karaktereket az Excel programban?

Feltételezve, hogy számos adat létezik, mint pl JAMES0898 # 4% ^ {}, amely nem alfanumerikus karaktereket tartalmaz egy munkalapon, és most csak a nem alfanumerikus karaktereket akarja eltávolítani, és megtartani az alfanumerikus karaktereket. Például, JAMES0898 # 4% ^ {} > JÁKÉSZ0898. Hogyan lehet gyorsan törölni ezeket a nem alfanumerikus karaktereket az Excelben?


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

Az alábbi rövid VBA kóddal eltávolíthatja a nem alfanumerikus karaktereket is. Megteheti így:

1. nyomja meg más + F11 gombok együtt megnyitni a Microsoft Visual Basic alkalmazásokhoz ablak.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a modulba:

VBA: Távolítsa el az összes nem alfanumerikus karaktert

Sub RemoveNotAlphasNotNum()
'Updateby2014128
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 "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. nyomja meg F5 vagy kattintson a gombra futás gombot a kód végrehajtásához.

4. Ezután válassza ki az előugró párbeszédpanelen azt a tartományt, amelyet el akar távolítani az összes nem alfanumerikus karakterből, majd kattintson a gombra OK gombot.

Most az összes nem alfanumerikus karakter törölve lett a kiválasztott tartományból. Lásd a képernyőképet:

2 kattintás az összes nem alfanumerikus karakter eltávolításához egy csodálatos eszközzel

Általában egy cellába helyezzük a kurzort, majd egyenként eltávolítjuk a nem alfanumerikus karaktereket. Ha ismeri a VBA-t vagy a felhasználó által definiált függvényeket, akkor kódolhatja azokat, és tömegesen eltávolíthatja az összes nem alfanumerikus karaktert. De itt ajánlok egy csodálatos eszközt, a Kutools for Excel Karakterek eltávolítása funkcióját, amely csak 2 kattintással képes eltávolítani mindenféle karaktert!


Távolítsa el a nem alfanumerikus karaktereket a Felhasználó által definiált funkcióval

Megadhat egy egyéni függvényt is, amely eltávolítja az összes nem alfanumerikus karaktert az Excel celláiból.

1. nyomja meg más + F11 gombok együtt megnyitni a Microsoft Visual Basic alkalmazásokhoz ablak.

2. Kattints betétlap > Modulok, majd illessze be az alábbi kódot a modulba:

Felhasználó által definiált funkció: Távolítsa el az összes nem alfanumerikus karaktert

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Most térjen vissza a munkalapra, válasszon egy üres cellát, és írja be a képletet = DeleteNonAlphaNumeric (B3), majd húzza az AutoFill fogantyú letöltését a képlet más cellákra való alkalmazásához.


Távolítsa el a nem alfanumerikus karaktereket a Kutools for Excel segítségével

Két fenti módszerrel ismernie kell a kódokat, de mint Excel kezdők, a legtöbben nem használhatjuk a kódot, ezért itt egy egyszerű módszert adok meg.

Kutools az Excel számára- Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

Ha telepítette a Kutools for Excel programot, kérjük, tegye ezt a következő lépések szerint:

1. Válassza ki azt a tartományt, amelyből el kell távolítania a nem alfanumerikus karaktereket, majd kattintson a gombra Kutools > szöveg > Karakterek eltávolítása.

2. Aztán a Karakterek törlése párbeszédpanel jelenik meg, csak jelölje be Nem alfanumerikus opciót, és kattintson a Ok gombot.

Most az összes nem alfanumerikus karaktert törölte a szöveges karakterláncokból.


Kapcsolódó cikkek:

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

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

kte lap 201905


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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do you remove the characters while keeping the space separator?
This comment was minimized by the moderator on the site
VBA method worked, but only works on the selected range. You cannot specify the output into a different range of cells than the input. So you must copy the source data into the target range, select the data, run the script and allow it to output to the default range. Also, the period (.) is not considered a special character, so if you want to remove those too, you'll need to search and replace.
This comment was minimized by the moderator on the site
Thanks for sharing, but still don't like the input-box method... :D
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations