vba 得到数字

标签：vba   end   and   bsp   拼接   like   ext   长度   get   

‘得到数字

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]" Then  ‘如果a在0-9之间
      getnum = getnum & a                   ‘拼接
    End If
  Next
End Function

vba 得到数字

标签：vba   end   and   bsp   拼接   like   ext   长度   get   

原文地址：https://www.cnblogs.com/bignine/p/10090544.html