问题描述：
Excel中有没有函数可以提取数字,去掉符号和中文?
我想用EXCEl进行一些计算,可现有数据有的前面有符号Φ,有的前面有R,有的直接是数字,怎么能用这些数字计算,而不让符号参与进来?(直径和半径数据前面都加符号的,度数后面加符号的)
问题解答：
我来补答
把下面函数贴入VBA模块中.在Sheet中像函数一样应用,例：=GetNum(A1)
Function GetNum(MyRng As Range)
For I = 1 To Len(MyRng.Text)
Select Case Mid(MyRng.Text,I,1)
Case 0 To 9
GX = GX & Mid(MyRng.Text,I,1)
End Select
Next
GetNum = GX
End Function
再问： 你好，能再具体一点吗，我对VBA很陌生 比如我要把单元格A1 中的内容“R8.5” 转入到B1中变成“8.5”具体怎么做
再答： 1、Alt + F11 调出VBA编程窗口 2、插入 - 模块，把下面代码贴入模块中（作了调整，加上了判断小数点） Function GetNum(MyRng As Range) For I = 1 To Len(MyRng.Text) Select Case Mid(MyRng.Text, I, 1) Case 0 To 9,"." GX = GX & Mid(MyRng.Text, I, 1) End Select Next GetNum = GX End Function 3、回到Sheet，如果A1=R8.5，B1输入 =GetNum(A1),结果得到8.5
