如何在 Excel 中删除单元格中的数字字符?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/17 23:40:17

Excel 是一款高效的程序，可帮助用户高效地组织、修改和分析数据。Excel 电子表格的数据中经常包含各种字符，包括数字、字母、符号等等。然而，在某些情况下，您可能需要清理数据，从特定的单元格或列中删除所有数字字符。

在本教程中，我们将逐步指导您从 Excel 单元格中删除数字字符的多种方法。无论您拥有的是产品代码列表、客户 ID 还是任何其他需要清除数字的数据，本课程都将为您提供轻松完成此操作所需的技能和知识。

从单元格中删除数字字符

在这里，我们可以通过创建 VBA 模块来完成此任务。让我们通过一个简单的过程来学习如何从 Excel 单元格中删除数字字符。

步骤 1

假设有一个 Excel 工作表，其中的数据与下图类似。

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

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

步骤 2

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

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

代码

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