excel 提取单元格中数字的函数

excel 提取单元格中数字的函数

因工作需要批量提取单元格中的数字,需要在excel的宏中插入模块,在声明中声明如下函数;然后像调用excel函数一样调用这个函数就行了。

代码如下:

Function StrNum(ByVal myStr As String) ‘返回只有数字的函数
StrNum = “”
For i = 1 To Len(myStr)
If (Asc(Mid(myStr, i, 1)) >= 48 And Asc(Mid(myStr, i, 1)) <= 57) Or Asc(Mid(myStr, i, 1)) = 39 Then StrNum = StrNum & Mid(myStr, i, 1)
Next
End Function

excel-pick-up-number

excel-pick-up-number

我在excel中运行的结果如上图!

有什么问题可以给我留言!!

 » 本站地址:http://www.gomoth.com
  • 您可能感兴趣的相关文章