首先使用公式提取连续数字，再通过FIND与MID组合提取首个数字段，接着用VBA自定义函数遍历字符获取所有数字，最后利用Power Query批量处理数据并提取数字。
如果您在处理包含文字与数字混合的单元格时，希望仅提取其中的数字部分，可以使用多种方法实现。Excel本身不提供直接提取数字的内置函数，但可以通过公式组合或工具辅助完成。
本文运行环境：Dell XPS 13，Windows 11
一、使用公式提取连续数字
通过嵌套函数组合可以从文本开头或中间提取连续的数字字符。此方法适用于数字位于文本前段且连续的情况。
1、在目标单元格中输入以下数组公式：=TEXTJOIN("",TRUE,IF(ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))
2、输入完成后按 Ctrl + Shift + Enter 确认，Excel会自动添加花括号表示数组公式。
3、将公式向下填充以应用到其他行。
二、提取首个连续数字段（适用于含多个数字的文本）
当单元格中包含多个数字片段时，可通过此方法提取第一个出现的数字序列。
1、使用FIND定位第一个数字出现的位置：=MIN(IF(ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))*1,ROW(INDIRECT("1:"&LEN(A1)))))
2、结合MID函数提取从该位置开始的连续数字：=IFERROR(MID(A1,MATCH(TRUE,ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0),SUMPRODUCT(--ISNUMBER(--MID(MID(A1,MATCH(TRUE,ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0),LEN(A1)),ROW(INDIRECT("1:"&LEN(A1))),1)))),"")
3、同样需以 Ctrl + Shift + Enter 输入数组公式。
三、使用VBA自定义函数提取所有数字
VBA能够遍历每个字符并判断是否为数字，适合复杂场景下的灵活处理。
1、按 Alt + F11 打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Function ExtractNumbers(cellRef As Range) As String
Dim i As Integer
Dim result As String
For i = 1 To Len(cellRef.Value)
If IsNumeric(Mid(cellRef.Value, i, 1)) Then
result = result & Mid(cellRef.Value, i, 1)
End If
Next i
ExtractNumbers = result
End Function
3、关闭编辑器，在工作表中使用函数 =ExtractNumbers(A1) 即可返回所有数字拼接结果。
四、利用Power Query拆分并提取数字
Power Query适合批量处理大量数据，通过字符拆分和筛选实现数字提取。
1、选择数据区域，点击「数据」选项卡中的「从表格/区域」加载至Power Query。
2、在Power Query编辑器中选中目标列，点击「转换」→「格式」→「提取」→「仅数字」。
3、若无此选项，可手动添加自定义列，使用表达式：Text.Select([Column1],{"0".."9"})
4、点击「关闭并上载」，结果将写回Excel工作表。
