返回目录：word文档
我已经把所有的演示步骤录下来了，请查看下面动画：
http://hiphotos.baidu.com/dhxmr1110/pic/item/35a0375a59b9e3b3800a183a.jpg
宏最方便了。
打开excel，alt+F11,右侧你的文件VBAProject（***.xls），右击“e799bee5baa6e997aee7ad94e4b893e5b19e331插入--模块--双击模块，把下面代码粘贴进去，保存退出。重新打开excel，启用宏，就可以用了，具体A2=取值(取值(A1,"-zm"),"-sz")就可以得到了。
Function 取值(rng, types As String) As String
Dim obj As Object
Set obj = CreateObject("VBSCRIPT.REGEXP")
With obj
.Global = True
If types = "-hz" Then
.Pattern = "[一-﨩]"
ElseIf types = "-zm" Then
.Pattern = "[a-zA-Z]"
ElseIf types = "-sz" Then
.Pattern = "\d"
ElseIf types = "+hz" Then
.Pattern = "^[一-﨩]"
ElseIf types = "+zm" Then
.Pattern = "[^a-zA-Z]"
ElseIf types = "+sz" Then
.Pattern = "[^0-9]"
End If
取值 = .Replace(rng, "")
End With
End Function
'使用说明:
'去汉字:=取值(A2,"-hz")
'取汉字:=取值(A2,"+hz")
'去字母:=取值(A2,"-zm")
'取字母:=取值(A2,"+zm")
'去数字:=取值(A2,"-sz")
'取数字:=取值(A2,"+sz")
你这个表格的所有内容都在一个单元格内，就算全部删除在copyExcel里面也是不好操作的。
1、符号的删除方法：在Excel里面，按Ctrl+F——zhidao切换到替换——在查找内容里输入“{}”——替换为保留空格————点击全部更换
2、删除数字的方法：把单元格的信息复制到Word里面——按Ctrl+F——切换到替换——在查找内容里输入“^#”——点击全部更换。
在知Excel中没有这个功能，可以在word中实现，方法有：
1、需要在右上角输入数字或符号时，按一下组合键ctrl+shift+‘=’，输入完成后再按一次恢道复正常；
2、需要在右上角输入数字或符号时，按一下ctrl+d组合键，字体选项卡下的“上标”前的内复选框选中，容然后输入，输入完成后再同样操作，将“上标”前的复选框去掉
word中比较好做，CTRL+H 查找框输入：百[!0-9],替换框中不输，点“更多”，勾上“使用通配符”，然后点确定即可
excel中看度你贴图也是有规律的，数字应该不是文本，所以问可以按 F5 功能键，定位——答常量——文，确定后，右键单击，删除——删除行。
如果只是把数字拿到版其它地方，按 F5 功能键，定位——常量——数字，确定后，复制，选一个权地方，最后粘贴即可。