使用以下简短的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 或用户定义函数，则可以对其进行编码并批量删除所有非字母数字字符。但在这里，我会推荐一个很棒的工具，Kutools for Excel 的删除字符功能，只需点击两下即可删除各种字符！

您还可以定义一个自定义函数，以从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初学者，我们大多数人无法使用代码，因此在这里，我将为您提供一种简单的方法。

Kutools for Excel-包括300多个用于Excel的便捷工具。 全功能30天免费试用，无需信用卡！ 立即行动吧!

如果您已经安装了Kutools for Excel，请按照以下步骤操作：

1。 选择您需要从中删除非字母数字字符的范围，然后单击 库工具 > 文本 > 删除字符.

2。 然后一个 删除字符 对话框将出现，仅检查 非字母数字 选项，然后单击 Ok 按钮。

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