如何在Excel中删除非字母数字字符

Excel是一个有效的数据处理和分析工具，然而有时我们处理的数据中包含不需要的字符，可能会给我们的任务带来困扰。非字母数字字符会阻碍我们对数据的计算、排序和其他操作。例如符号、标点符号和其他特殊字符。本文旨在简化和清晰地介绍这个过程，无论您是在处理杂乱的文本、非结构化的数据，还是只是想清理信息。

删除非字母数字字符

这里我们首先要创建一个VBA模块，然后选择要完成任务的单元格范围。让我们看一个简单的过程，学习如何在Excel中删除非字母数字字符。

步骤1

考虑一个Excel表格，在其中有一些带有非字母数字字符的单元格，类似于下面的图像。

如何在Excel中删除非字母数字字符

首先，右键单击表格名称，选择“查看代码”以打开VBA应用程序。

**右键单击 > 查看代码。 **

步骤2

然后点击插入，并选择模块，然后将下面的代码复制到文本框中。

**插入 > 模块 > 复制。 **

代码

Sub RemoveNotAlphasNotNum()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Remove Non Alphanumeric"
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

如何在Excel中删除非字母数字字符