如何在Excel中删除非字母数字字符？-英雄云拓展知识分享

使用以下简短的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 = "toolsforExcel"
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⑼.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub

3。 按 F5 键或单击 跑 按钮履行代码。

4。 然后在弹出对话框当选择要删除所有非字母数字字符的范围，然后单击 OK 按钮。

现在，所有非字母数字字符都已从所选范围删除。 看截图：

2次点击，便可使用出色的工具删除所有非字母数字字符

我们通常将光标置于一个单元格中，然后手动逐一删除非字母数字字符。 如果您熟习VBA或用户定义内涵函数，则可以对其进行编码并批量删除所有非字母数字字符。 但是在这里，我将推荐一个很棒的工具，tools 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⑼]"
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初学者，我们大多数人没法使用代码，因此在这里，我将为您提供一种简单的方法。

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

如果您已安装tools for Excel，请依照以下步骤操作：

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

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

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