VBA代码如下
Function delch(str As String) As String
Dim reg As ObjectSet reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "[A-Z\u3E00-\u9FA5]"
delch = .Replace(str, "")
End With
Set reg = Nothing
End Function
感谢@James指导。
VBA代码如下
Function delch(str As String) As String
Dim reg As ObjectEnd Function
感谢@James指导。