如何在 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. 接著會出現一個 刪除字符 對話框，僅勾選 非字母數字 選項，然後點擊 確定 按鈕。

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