如何在Excel中删除单元格中的非字母字符？

本手册将逐步向您展示如何清除Excel数据中特定单元格中的任何非字母字符，从而清理您的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