Function dqsz(A)
With CreateObject("vbscript.RegExp")
.Global = True
.ignorecase = True
.Pattern = "[\u4e00-\u9fa5]"
dqsz = .Replace(A, "")
End With
End Function
VBA 正则去除汉字
于 2022-03-05 16:44:42 首次发布
Function dqsz(A)
With CreateObject("vbscript.RegExp")
.Global = True
.ignorecase = True
.Pattern = "[\u4e00-\u9fa5]"
dqsz = .Replace(A, "")
End With
End Function