如何在 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. 随后将弹出删除字符对话框，仅勾选非字母数字选项，然后单击确定按钮。

现在，文本字符串中的所有非字母数字字符都已被移除。