这个必须使用自定义函数: 1、在工作表按alt + F1来自1,打开VBE编辑器 2、在左上方工程管理器中点击右键——插入模块 3、在右边白色的代码窗口中粘贴以下代码: Function del(str As String) As String Dim objRegExp As Object Set objRegExp = CreateObject(VBSCRIPT.REGEXP) With objRegExp .Global = True .Pattern = [\u4e00-\u9fa5] del = .Replace(str, ) End With End Function
这个必须使用自定义函数: 1、在工作表内按alt + F11,打开VBE编辑器 2、在左上方工程管理器中点击右键——插入模块 3、在右边白色的代码窗口中粘贴以下代码: Function del(str As String) As String Dim objRegExp As Object Set objRegExp = CreateObject("***.regexp") With objRegExp .Global = True .Pattern = "[u4e00-u9fa5]" del = .Replace(str, "") End With End Function