如何在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然后在弹出的对话框中选择要删除所有非字母数字字符的范围，并点击 确定 按钮。

现在，所有非字母数字字符都已从选定范围中删除。请参见截图：

只需两次点击即可通过一个神奇工具删除所有非字母数字字符

我们通常会将光标放入单元格中，然后手动逐个删除非字母数字字符。如果您熟悉VBA或用户定义函数，可以编写代码并批量删除所有非字母数字字符。但在这里，我将推荐一个神奇的工具——Kutools for Excel 的 删除字符 功能，它只需两次点击即可删除各种字符！

您还可以定义一个自定义函数来删除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然后会出现一个 删除字符 对话框，仅勾选 非字母数字 选项，然后点击 确定 按钮。

现在，所有非字母数字字符都已从文本字符串中删除。