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 IfNext i鱼木混猪 = --鱼木混猪End Function
5、关闭VBA编辑界面,返回Excel,输入公式=鱼木混猪(第一个单元格),如下图所示。
6、结束公式输入,并填充公式,得到提取数字结果如下图所示。