如何在 Excel 中移除非字母數字字元？

透過以下簡短的 VBA 程式碼，您也能輕鬆移除非字母數字字元。操作步驟如下：

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

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. 在彈出的對話方塊中，選取要移除非字母數字字元的範圍，再點選確定按鈕。

現在，所有非字母數字字元皆已從選取區域中移除。請參閱以下截圖：

只需 2 次點擊，即可透過強大工具移除所有非字母數字字元

通常我們會將游標置於儲存格中，手動逐一移除非字母數字字元。若您熟悉 VBA 或自訂函數，可自行撰寫程式碼，一次性大量清除所有非字母數字字元。但在此，我們強力推薦一款超實用的工具——刪除特定字符，它是 Kutools for Excel 的內建功能，僅需 2 次點擊，即可輕鬆移除各種類型的字元！

您也可以定義一個自訂函數，用來移除 Excel 儲存格中的所有非字母數字字元。

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

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 初學者來說，多數人並不熟悉程式碼操作。因此，我在此提供一種更簡單的解決方案。

Kutools for Excel－內含超過 300 款實用 Excel 工具，提供完整功能 30 天免費試用，無需信用卡！立即取得

若您已安裝 Kutools for Excel，請依照下列步驟操作：

1. 選取要移除非字母數字字元的範圍，然後點選 Kutools> 文字> 刪除特定字元。

2. 此時會出現刪除字元對話方塊，請僅勾選非字母數字選項，再點選確定按鈕。

現在，所有非字母數字字元皆已從文字字串中移除。