Excel模块处理中文数据使用方法
1 2 3 4 5 6 7 8 9 |
Function SZZM(i As String) As String Dim a As Object Set a = CreateObject("VBSCRIPT.REGEXP") a.Pattern = "[^A-Z^a-z^0-9^ ^:^<^>^/^,^.^-^?]" a.IgnoreCase = True a.Global = True SZZM = a.Replace(i, "") Set a = Nothing End Function |
上一篇: 老数据合并
已是最新文章
总计 0 评论