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

本教程将逐步向您展示如何清理Excel数据中特定单元格中的非字母字符。当处理包含非期望符号、数字或特殊字符的数据时，这种策略非常有帮助，能够让您拥有干净、井然有序的数据。

Excel是一个有效的数据分析、报告和记录工具。但有时，信息可能来自不同的来源或以产生混合内容（比如非字母字符）的方式生成。手动删除这些不需要的字符可能需要很长时间，特别是当处理大型数据集时。我们的教程可以在这种情况下帮助您。开始之前，有必要对Excel及其功能有基本了解。无论您是经验丰富的Excel用户还是希望增加知识的初学者，本教程都适用于您。

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

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

步骤1

考虑一个包含非字母字符的Excel表格，类似于下面的图像。

如何从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

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