如何从 Excel 单元格中删除非字母字符?

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

本手册将逐步向您展示如何从特定单元格中清除所有非字母字符，以清理您的 Excel 数据。处理包含不需要的符号、数字或特殊字符的数据时，此策略非常有用，可以让您获得干净、有序的数据。

Excel 是用于数据分析、报告和记录保存的有效工具。但有时，信息可能来自不同来源，或者以产生混合内容(例如非字母字符)的方式生成。手动删除这些不需要的字符可能需要一段时间，尤其是在处理海量数据集时。在这种情况下，我们的教程可以帮您解决。在开始之前，务必对 Excel 及其功能有基本的了解。本教程适合所有水平的用户，无论您是经验丰富的 Excel 用户，还是希望提升知识的新手。

从单元格中删除非字母字符

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

步骤 1

假设有一个 Excel 工作表，其中包含包含非字母字符的单元格，如下图所示。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >查看代码。

步骤 2

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

插入 > 模块 > 复制。

代码

Sub RemoveNotAlphas()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Remove Non Alpha"
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.]" Then
         xStr = xTemp
      Else
         xStr = ""
      End If
      xOut = xOut & xStr
   Next i
   Rng.Value = xOut
Next
End Sub