[已解决]批量查找替换！

hongliang224

     {:021:}excel中能不能批量查找某个序列，如a-z,A-Z,或者含有数字的单元格等！我就想把某些单元格的字母跟数值替换掉只留文本那种！

最佳答案

月排行榜 / 总排行榜

海滨音诗

2011-12-24 15:31

把数据复制到WORD中，在查找框中输入：[0-9,A-Z,a-z]，注意，要勾选“使用通配符”，在替换为里什么也不填，这样就可以把数字，英文大小写全部去掉了，然后再把数据复制到EXCEL中。

跳转到最佳答案楼层

海滨音诗

可以复制到WORD中再替换，然后再复制回来。

yuhe0008

上附件说明

hongliang224

貌似查找替换可以实现的，忘记怎么弄了！

hongliang224

yuhe0008 发表于 2011-12-23 22:01
上附件说明

假设每个单元格内容为以下一行：                              

E辛-13乙83甲NLjuX

KB99-8864h-2444p戊90

F壬-19丙48乙OMkvY

JA89庚-42g91-76o丁77

-418-15-6-49甲-82-28额辛-57

13D0-43-59癸811r庚61

G癸-59丁-66丙P18lwZ

H甲-71戊-75丁Q-74mx-50

I乙41己-90f-37-81n丙53

42C-43-49-94i-74-51q己-1

-10-483而非乙58的人壬到提取汉字，查找替换有办法实现没！说是word中可以实现，怎么弄法！

yuhe0008

勾选查找替换对话窗口中的 “使用通配符”
查找：[一-龥] 替换为 空

hongliang224

yuhe0008 发表于 2011-12-24 10:34
勾选查找替换对话窗口中的 “使用通配符”
查找：[一-龥] 替换为 空

好像不可以啊，我的是word2003，我是要保留汉字！把数字字母替换为空！

yuhe0008

勾选查找替换对话窗口中的 “使用通配符”
查找：[!一-龥] 替换为 空

201228

yuhe0008 发表于 2011-12-24 12:09
勾选查找替换对话窗口中的 “使用通配符”
查找：[!一-龥] 替换为 空

版主：：[!一-龥]   是什么意思啊。  适用于所有的替换吗、？

windimi007

hongliang224 发表于 2011-12-24 08:37
假设每个单元格内容为以下一行：

用正则写了一个，楼主看看是否符合要求吧！{:912:}

1. Sub aa()
   
2.     Dim arr
   
3.     Dim i%
   
4.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .Pattern = "[^\u4e00-\u9fa5]"
   
8.         For i = 1 To UBound(arr)
   
9.             arr(i, 1) = .Replace(arr(i, 1), "")
   
10.         Next i
    
11.     End With
    
12.     Range("B1").Resize(UBound(arr)) = arr
    
13. End Sub

复制代码