人无远虑,必有近忧.

1. 公式2.Visual Basic2.1 单元格去掉中文去掉单元格内任意位置的中文菜单–选择开发工具–VisualBasic；选择当前sheet，右键当前sheet，选择 插入 模块Function delch(str As String) As StringDim reg As ObjectSet reg = CreateObject("vbscript.regexp")With reg .Global = True .Pattern = "[\u3E00-\u9FA