excel如何提取字符串中不规则位置的数字

1、如下图所示，A列中有部分位置不规定的数字，从中提取出来。

2、按下Alt+F11组合键，打开VBA编辑界面，如下图所示。

3、在左上角工程窗口点击右键，选择“插入”，“模块”，如下图所示。

4、在模块中复制粘贴如下代码，如下图所示。

Function 鱼木混猪(x As Range)

For i = 1 To Len(x)

If Mid(x, i, 1) >= 0 And Mid(x, i, 1) <= 9 Then

鱼木混猪 = 鱼木混猪 & Mid(x, i, 1)

End If

Next i

鱼木混猪 = --鱼木混猪

End Function

5、关闭VBA编辑界面，返回Excel，输入公式=鱼木混猪(第一个单元格），如下图所示。

6、结束公式输入，并填充公式，得到提取数字结果如下图所示。

1、1.按下Alt+F11

2.点击右键“插入”，“模块”

3.复制粘贴如下代码

Function 鱼木混猪(x As Range)

For i = 1 To Len(x)

If Mid(x, i, 1) >= 0 And Mid(x, i, 1) <= 9 Then

鱼木混猪 = 鱼木混猪 & Mid(x, i, 1)

End If

Next i

鱼木混猪 = --鱼木混猪

End Function

4.关闭VBA界面

5.输入公式=鱼木混猪(A1)

6.结束公式，往下填充，得到提取结果