vba

Public Function jqsz(s As String)
‘截取数值

‘引用Microsoft VBScript Regular Expressions X.X

Dim re

Set re = New RegExp
re.Pattern = "[^,0-9]"
re.Global = True

jqsz = re.Replace(s, "")
End Function

原文：https://www.cnblogs.com/yihulaojiu/p/13356046.html