vba 得到数字

'得到数字

Function getnum(s)
  n = Len(s)                        '求出s的长度，放在变量n中
  For i = 1 To n                    '进行n次循环
    a = Mid(s, i, 1)                '取s中第i个字符，放在a中
'    If a >= 0 And a <= 9 Then '大于等于0，小于等于9的为数字
     If a Like "[0-9]" or a like "." Then  '如果a在0-9之间
      getnum = getnum & a                   '拼接
    End If
  Next
End Function