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!

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.

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.