Public Function getnumber(rng, Optional x) Dim regex Set regex = CreateObject("VBSCRIPT.REGEXP") With regex .Global = True If IsMissing(x) Then .Pattern = "[^0-9]" Else If x = 1 Then .Pattern = "[^0-9]" Else If x = 2 Then .Pattern = "[0-9\u4e00-\u9fa5]" Else .Pattern = "[^\u4e00-\u9fa5]" End If End If End If End With getnumber = regex.Replace(rng, "") Set regex = Nothing End Function 1或省略后面参数,提取数字 2是提取字母或其它符号 3以上是提取汉字 |
|