作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 12:56:12
Excel中有没有函数可以提取数字,去掉符号和中文?
我想用EXCEl进行一些计算,可现有数据有的前面有符号Φ,有的前面有R,有的直接是数字,怎么能用这些数字计算,而不让符号参与进来?(直径和半径数据前面都加符号的,度数后面加符号的)
Excel中有没有函数可以提取数字,去掉符号和中文?
把下面函数贴入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