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.结束公式，往下填充，得到提取结果