在Excel中提取文字中的数字，可以使用以下几种方法：
方法一：基础函数组合
适用于简单场景，使用以下公式：
```excel
=MID（A1, FIND（CHOOSE（1,0,1,2,3,4,5,6,7,8,9,0）, A1 & "0123456789"）, LEN（A1） - FIND（"最后一个数字", SUBSTITUTE（A1, "0123456789", "最后一个数字"）））
```
参数说明：
`A1`：源数据单元格
`FIND`：查找第一个数字的位置
`CHOOSE`：生成0-9的数字序列
`SUBSTITUTE`：替换文本以定位最后一个数字
`LEN`：计算文本长度
方法二：正则提取
适用于复杂场景，使用以下公式（数组公式）：
```excel
=TEXTJOIN（"", TRUE, IF（ISNUMBER（--MID（A1, ROW（$1:$99）, 1））, MID（A1, ROW（$1:$99）, 1）, ""））
```
使用步骤：
选择目标单元格
输入上述公式（按Ctrl+Shift+Enter确认）
向下拖拽公式以批量处理数据
方法三：使用SUMPRODUCT函数
1. 在新单元格中输入以下公式：
```excel
=SUMPRODUCT（MID（A1, ROW（INDIRECT（"1:" & LEN（A1）））, 1） * 1）
```
2. 将“A1”替换成要提取数字的单元格的引用。
3. 按下“Enter”键。
方法四：使用正则表达式函数
1. 在新单元格中输入以下公式（数组公式）：
```excel
=CONCAT（IFERROR（MID（A1, ROW（$1:$100））, 0））
```
2. 将“A1”替换成要提取数字的单元格的引用。
3. 按下“Ctrl + Shift + Enter”键。
方法五：使用VBA代码
如果需要批量处理大量数据，可以使用以下VBA代码：
```vba
Sub ExtractNumbers（）
Dim rng As Range
Dim cell As Range
Dim txt As String
Dim i As Long
Set rng = Selection
For Each cell In rng
txt = ""
For i = 1 To Len（cell.Value）
If IsNumeric（Mid（cell.Value, i, 1）） Then
txt = txt & Mid（cell.Value, i, 1）
End If
Next i
cell.Offset（0, 0）.Value = txt
Next cell
End Sub
```
操作步骤：
打开Excel
按下`Alt + F11`打开VBA编辑器
插入一个新模块
复制并粘贴上述代码
按下`F5`运行代码
选择要提取数字的单元格区域，运行代码
注意事项
局限性：
方法一和方法二不适用于提取负数（需要额外处理负号）。
如果文本中包含多组数字，默认提取所有数字。
可能会受到Excel区域设置的影响（如小数点符号）。
单个单元格字符数限制为255个。
根据你的具体需求和数据情况，可以选择最适合的方法进行操作。