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

Excel 用户经常遇到包含数字和非数字字符混合的数据，例如字母或符号。清理这些数据对于进一步的分析或报告至关重要。在本指南中，我们将探讨四种从 Excel 单元格中删除非数字字符的方法，确保您的数据干净且可用。

• 通过使用公式（Excel 2021 及更高版本）
• 通过使用 Kutools AI 助手 （智能 & 高效）
• 通过使用一个神奇工具 （一键操作）
• 通过使用 VBA 代码

从 Excel 单元格中删除非数字字符

在本节中，我们将介绍四种有效的方法来从 Excel 单元格中删除非数字字符，针对不同版本的 Excel 和用户的专业水平量身定制。

通过使用公式从 Excel 单元格中删除非数字字符

要从 Excel 单元格中删除非数字字符，您可以使用基于 TEXTJOIN 函数的公式。

步骤 1：选择一个单元格并应用公式

在 C2 单元格中，应用以下公式，并按 Enter 键获取结果。

=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)+0,""))+0

步骤 2：将公式应用于其他单元格并获取所有结果

计算出初始结果后，拖动公式单元格（在此示例中为 C2）的填充柄向下应用公式到其他单元格，扩展至 C8 单元格。

通过使用 Kutools AI 助手从 Excel 单元格中删除非数字字符

Kutools for Excel 的“AI 助手”功能在清理 Excel 表格时提供了无与伦比的便利，可以轻松删除非数字字符。只需您简单的输入，这个强大的工具就会接管，自动分析并执行所需任务，无需复杂的公式。这不仅加快了处理速度，还消除了出错的可能性，显著提高了您的生产力和准确性。“AI 助手”将可能繁琐的手动任务转变为无缝、高效的运作，成为任何希望优化工作流程的 Excel 用户的必备工具。

下载并安装 Kutools for Excel 后，点击“Kutools AI ”>“AI 助手 ”打开“Kutools AI 助手 ”窗格。

1. 在“Kutools AI 助手”窗格中，像下面的文本一样在聊天框中输入您的请求，并点击 “发送”按钮或按 Enter 键提交您的查询。

“请帮我从 Excel 的 A2:A8 区域中删除非数字字符。”

2. 一旦工具分析完您的输入，点击“执行”按钮。Kutools AI 助手将利用其 AI 技术处理您的请求，并直接在 Excel 中应用结果。

提示：要使用此功能，您应先安装 Kutools for Excel，请 点击下载 Kutools for Excel 现在。

通过使用一个神奇工具从 Excel 单元格中删除非数字字符

为了通过删除指定区域内的非数字字符高效地清理数据，Kutools for Excel 的“删除特定字符”工具提供了一键解决方案。这个强大的工具简化了通常繁琐的过程，使您可以快速消除数据中的不需要的字符，确保立即获得更干净、更可用的结果。

1. 选中要删除非数字字符的区域后，点击“Kutools”>“文本”>“删除特定字符”。

2. 在“删除特定字符”对话框中，勾选“非数字”选项，并点击“确定”。然后立即从选中区域中删除非数字字符。

提示：要使用此功能，您应先安装 Kutools for Excel，请 点击下载 Kutools for Excel 现在。

通过使用 VBA 代码从 Excel 单元格中删除非数字字符

要通过 VBA 代码从范围中删除非数字字符，请按照以下步骤操作：

步骤 1：打开 VBA 模块编辑器并复制代码

1. 在 Excel 中按住“ALT + F11”键，打开“Microsoft Visual Basic for Applications”窗口。
2. 点击“插入”>“模块”，然后在模块窗口中复制并粘贴以下代码。
3. VBA 代码：删除所有非数字字符

   Sub RemoveNotNum()
   'Updateby Extendoffice
   Dim Rng As Range
   Dim WorkRng As Range
   On Error Resume Next
   xTitleId = "KutoolsforExcel"
   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 = xTemp
           Else
               xStr = ""
           End If
           xOut = xOut & xStr
       Next i
       Rng.Value = xOut
   Next
   End Sub
   

步骤 2：执行代码

1. 粘贴此代码后，请按 F5 键运行此代码。
2. 在弹出的 KutoolsforExcel 对话框中，选择要从中删除非数字字符的范围，然后点击确定。

结果

然后选中范围内的所有非数字字符都被删除。

相关文章