如何去除数字保留汉字？

sblisb

如下表，A列和C列，去除数字保留汉字，本来用分列就可以，但是有很多表和列，效率太慢，有没有vba可以做到，我选中某列要清除数字的，运行一下代码，就只剩汉字了？
test.rar (1.73 KB, 下载次数: 48)

2015-5-28 11:53 上传

点击文件名下载附件

sblisb

搜到一段代码，是清除c列吧，哪位帮我把范围改成清除当前选中的
Sub excel删除数字()
  Dim reg As Object '定义reg为一个对象
  Dim arr '定义一个动态数组
  Dim i As Long, j As Long '分别定义i,j为长整型
  i = Range("A65536").End(xlUp).Row '把A列非空的最后行数赋予给i
  Columns("C").ClearContents '清空C列
  arr = Range("A1:A" & i) '把A列的数据赋予给数组arr
  Set reg = CreateObject("VBscript.RegExp") '调用正则表达式
  With reg '定义表达式
    .Global = True '匹配所有搜索项
    .ignorecase = True '不区分大小写
    .Pattern = "[0-9]" '数字的表达式
  End With
  For j = 1 To i '循环该区域
     Range("C" & j) = reg.Replace(arr(j, 1), "") '进行根据模板替换字符串为空值
  Next
End Sub

看见星光

1. Sub excel删除数字()
   
2.   Dim reg As Object, rng As Range, myrng As Range
   
3.   Set rng = Application.InputBox("请选择范围", Type:=8)
   
4.   Set reg = CreateObject("VBscript.RegExp")
   
5.   With reg
   
6.     .Global = True
   
7.     .ignorecase = True
   
8.     .Pattern = "[0-9.]"
   
9.   End With
   
10.   For Each myrng In rng
    
11.      myrng = reg.Replace(myrng, "")
    
12.   Next
    
13. End Sub
    

复制代码

看见星光

附件供参考

sblisb

看见星光 发表于 2015-5-28 12:32
附件供参考

谢谢帮助！搞定

ctp_119

去留字符万能自定义正则表达式函数

1. '以下是一个通用自定义函数。
   
2. Function exReplace(str As String, repstr As String, pat As String) '保留汉字，"\w"
   
3. '正则表达式替换函数
   
4. '参数说明：str表示原字符串，repstr表示将要替换的字符串，pat表示样式
   
5. 
   
6. Dim reg As Object
   
7. Set reg = CreateObject("vbscript.regexp") '创建一个正则表达式变量
   
8. With reg
   
9. .Global = True '搜索字符串中的全部字符，如果为false表示一找到匹配的字符就停止搜索。
   
10. .MultiLine = True '设置多行搜索匹配
    
11. .Pattern = pat '设置样式
    
12. exReplace = .Replace(str, repstr) '执行替换
    
13. End With
    
14. Set reg = Nothing
    
15. End Function
    

复制代码

ctp_119