转：excel去掉或提取单元格中的数字、字母、汉字

Excel中去掉或提取单元格中的汉字、字母和数字。

打开excel，alt+F11,右侧你的文件VBAProject（***.xls），右击“插入--模块--双击模块，把下面代码粘贴进去，保存退出。重新打开excel，启用宏，就可以用了。具体，在A2单元格中输入 =取值(A1,'-zm) 就可以得到去掉字母的内容了。2007的也类似。
Function 取值(rng, types As String) As String
Dim obj As Object
Set obj = CreateObject('VB script .REGEXP')
With obj
.Global = True
If types = '-hz' Then
.Pattern = '[一-﨩]'