Excel中有没有函数可以提取数字，去掉符号和中文？

显示全部楼层 · 2011-9-18 09:17:08

我想用EXCEl进行一些计算，可现有数据有的前面有符号Φ,有的前面有R，有的直接是数字，怎么能用这些数字计算，而不让符号参与进来?(直径和半径数据前面都加符号的，度数后面加符号的)

千问 · 2011-9-18 09:17:08

把下面函数贴入VBA模块中。在Sheet中像函数一样应用，例：=GetNum(A1)
FunctionGetNum(MyRngAsRange)
ForI=1ToLen(MyRng.Text)
SelectCaseMid(MyRng.Text,I,1)
Case0To9
GX=GXdefds123Mid(MyRng.Text,I,1)
EndSelect
Next
GetNum=GX
EndFunction

<h4class=\"ask\">追问

你好，能再具体一点吗，我对VBA很陌生
比如我要把单元格A1中的内容“R8.5”转入到B1中变成“8.5”具体怎么做

千问 · 2011-9-18 09:17:08

1、AltF11调出VBA编程窗口
2、插入-模块，把下面代码贴入模块中（作了调整，加上了判断小数点）
FunctionGetNum(MyRngAsRange)
ForI=1ToLen(MyRng.Text)
SelectCaseMid(MyRng.Text,I,1)
Case0To9,\".\"
GX=GXdefds123Mid(MyRng.Text,I,1)
EndSelect
Next
GetNum=GX
EndFunction

3、回到Sheet，如果A1=R8.5，B1输入=GetNum(A1),结果得到8.5