Excel提取数字的实用公式技巧

还在为Excel表格中提取数字而烦恼吗？本文为您详细解读**Excel提取数字的公式方法**，助力数据清洗与报表制作。告别繁琐的手动操作，掌握高效提取技巧！本文基于Windows 11系统，Dell XPS 13环境，精选多种实用公式，包括TEXTJOIN与MID组合提取所有数字、VBA自定义函数灵活提取、MID/ROW/INDIRECT/SUMPRODUCT嵌套提取整数，以及LEN/SUBSTITUTE重复替换法清除字母。无论您需要提取连续数字、非连续数字，还是整数，都能找到合适的解决方案。轻松应对各种复杂场景，提升您的Excel数据处理能力！

1、使用TEXTJOIN与MID组合公式可提取单元格中所有数字字符并拼接输出。

如果您在处理Excel表格时需要从包含文本和数字的单元格中提取纯数字部分，可以使用多种内置公式组合来实现这一目标。这类操作常用于清洗数据或准备报表。

本文运行环境：Dell XPS 13，Windows 11

一、使用正则表达式替代法结合 SUBSTITUTE 和 TEXTJOIN

该方法通过逐个替换掉所有非数字字符，保留仅含数字的部分。适用于混合文本中提取连续或非连续数字。

1、输入以下数组公式（需按 Ctrl+Shift+Enter）：=TEXTJOIN("",TRUE,IF(ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))

2、将公式中的 A1 替换为实际要提取数字的单元格引用。

3、确认输入后，公式会返回该单元格中所有的数字字符拼接结果。

二、利用 VBA 自定义函数提取数字

当公式复杂度较高时，可通过编写 VBA 函数简化操作，实现更灵活的数字提取逻辑。

1、按下 Alt + F11 打开 VBA 编辑器，在新模块中插入以下代码：

Function ExtractNumbers(cell As Range) As String
Dim i As Integer
For i = 1 To Len(cell.Value)
If IsNumeric(Mid(cell.Value, i, 1)) Then
ExtractNumbers = ExtractNumbers & Mid(cell.Value, i, 1)
End If
Next i
End Function

2、关闭编辑器并返回 Excel 表格。

3、在目标单元格输入公式：=ExtractNumbers(A1)，即可提取 A1 单元格中的所有数字。

三、嵌套使用 MID、ROW、INDIRECT 和 SUMPRODUCT 提取整数

此方法适用于提取单元格中最左侧开始的第一个连续数字串，并将其转换为数值类型。

1、输入以下公式：=SUMPRODUCT(MID(0&A1,LARGE(INDEX(ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))*ROW(INDIRECT("1:"&LEN(A1))),0),ROW(INDIRECT("1:"&LEN(A1))))+1,1)*10^ROW(INDIRECT("1:"&LEN(A1)))/10)

2、该公式会自动识别并提取文本中的连续数字，即使前面有字母也能正确解析。

3、注意此公式对小数支持有限，主要用于提取整数部分。

四、结合 LEN、SUBSTITUTE 和重复替换法逐步清除字母

通过循环去除每一个非数字字符，最终留下纯数字字符串。

1、从 0 到 9 每个数字之外的字符进行清除，可使用多层 SUBSTITUTE 嵌套：

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"a",""),"b",""),"c",""),"d",""),"e",""),"f",""),"g",""),"h",""),"i",""),"j","")

2、继续添加更多 SUBSTITUTE 层以覆盖所有可能的字母或符号。

3、为了提高效率，建议配合 LOWER 或 UPPER 函数统一大小写后再执行替换。

今天带大家了解了的相关知识，希望对你有所帮助；关于文章的技术知识我们会一点点深入介绍，欢迎大家关注golang学习网公众号，一起学习编程~