公式没想出来,不知打有没有大神能写个出来。
给你个自定义函数吧,代码如下
Public Function tqsz(a)
num = ""
For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 1)) = True Then
num = num & Mid(a, i, 1)
End If
Next i
tqsz = num
End Function
用法,打开Excel后在任意一个表名上(如sheet)单击鼠标右键,选“查看代码”,然后在弹出的窗口中选:插入——模块,将以上代码复制到新插入的模块中即可。
然后关闭窗口回到Excel,假设你的数据在A列,那你就在B列输入=tqsz(a1)下拉即可
效果如下图
![](http://imgsrc.baidu.com/forum/w%3D580/sign=d49cfe0cb3119313c743ffb8553a0c10/111d6059252dd42aafeb3165023b5bb5cbeab8d1.jpg)