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 函数统一大小写后再执行替换。
