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

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/17 19:56:17

Excel 是处理和分析数据的有效工具，但我们处理的数据中偶尔会包含一些不必要的字符，这可能会增加我们的工作难度。非字母数字字符会堵塞数据，妨碍计算、排序和其他操作。例如，符号、标点符号和其他特殊字符。本文旨在使操作过程简单明了，无论您处理的是杂乱的文本、非结构化数据，还是只是想清理信息。

删除非字母数字字符

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

步骤 1

假设有一张 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