Public Function jqsz(s As String)‘截取数值
‘引用Microsoft VBScript Regular Expressions X.X
Dim re
Set re = New RegExpre.Pattern = "[^,0-9]"re.Global = True
jqsz = re.Replace(s, "")End Function
vba
原文：https://www.cnblogs.com/yihulaojiu/p/13356046.html
