使用以下簡短的VBA代碼，您也可以刪除非字母數字字符。 您可以這樣做：

1。 按 其他 + F11 鑰匙一起打開 適用於應用程序的Microsoft Visual Basic 窗口。

2。 點擊 插入 > 模塊，然後將以下VBA代碼粘貼到模塊中：

VBA：刪除所有非字母數字字符

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。 按 F5 鍵或單擊 運行 按鈕執行代碼。

4。 然後在彈出對話框中選擇要刪除所有非字母數字字符的範圍，然後單擊 OK 按鈕。

現在，所有非字母數字字符都已從所選範圍刪除。 看截圖：

2次點擊，即可使用出色的工具刪除所有非字母數字字符

我們通常將遊標放入儲存格中，然後手動一一刪除非字母數字字元。如果您熟悉 VBA 或使用者定義函數，則可以對其進行編碼並批量刪除所有非字母數字字元。但在這裡，我會推薦一個很棒的工具， 刪除字符 的特點 Excel的Kutools，只需點擊2次即可刪除各種字元！

您還可以定義一個自定義函數，以從Excel的單元格中刪除所有非字母數字字符。

1。 按 其他 + F11 鑰匙一起打開 適用於應用程序的Microsoft Visual Basic 窗口。

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到模塊中：

用戶定義的功能：刪除所有非字母數字字符

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。 現在返回工作表，選擇一個空白單元格，然後輸入公式 = DeleteNonAlphaNumeric（B3），然後拖動“自動填充”手柄下載以將此公式應用於其他單元格。

使用以上兩種方法，您需要了解代碼，但是作為Excel初學者，我們大多數人無法使用代碼，因此在這裡，我將為您提供一種簡單的方法。

Excel的Kutools-包括300多個用於Excel的便捷工具。 全功能30天免費試用，無需信用卡！ 立即行動吧!

如果您已安裝Kutools for Excel，請按照以下步驟操作：

1。 選擇您需要從中刪除非字母數字字符的範圍，然後單擊 庫工具 > 文本 > 刪除字符.

2。 然後一個 刪除字符 對話框將出現，僅檢查 非字母數字 選項，然後單擊 Ok 按鈕。

現在，所有非字母數字字符都已從文本字符串中刪除。