如何只提取英文，不包含数字或其它语言文字

ptnjust007

期刊附件，一点思路都没。。。

grf1973

1. Sub 提取()
   
2.     arr = [a1].CurrentRegion
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "[^a-zA-Z -]"
   
6.         arr = [a1].CurrentRegion
   
7.         For i = 2 To UBound(arr)
   
8.             x = .Replace(arr(i, 2), "")
   
9.             arr(i, 2) = IIf(x = arr(i, 2), x, "")
   
10.         Next
    
11.     End With
    
12.     [c1].Resize(UBound(arr)) = Application.Index(arr, , 2)
    
13. End Sub
    

复制代码

苏子龙

1. Sub tt()
   
2.     Dim i&, ar
   
3.     ar = Range("b2:b" & [b2].End(4).Row)
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Pattern = "[^a-zA-Z ]?"
   
6.         .Global = True
   
7.         For i = 1 To UBound(ar)
   
8.             ar(i, 1) = .Replace(ar(i, 1), "")
   
9.         Next
   
10.     End With
    
11.     [c2].Resize(UBound(ar)) = ar
    
12. End Sub

复制代码

grf1973

题目意思应该是如果某个单元格含非英文字符，整个单元格作废吧。
代码小改一下。

1. Sub 提取()
   
2.     arr = [a1].CurrentRegion
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "[^a-zA-Z -]"
   
6.         arr = [a1].CurrentRegion
   
7.         For i = 2 To UBound(arr)
   
8.             arr(i, 2) = IIf(Not .test(arr(i, 2)), arr(i, 2), "")
   
9.         Next
   
10.     End With
    
11.     [c1].Resize(UBound(arr)) = Application.Index(arr, , 2)
    
12. End Sub

复制代码

yayahzmeng

grf1973 发表于 2017-1-19 13:25
题目意思应该是如果某个单元格含非英文字符，整个单元格作废吧。
代码小改一下。

repuestos desbrozadora jardin
couteau de chasse lame fixe
初学正则，虚心求教：
貌似"[^A-Za-z -]" 也会把上两句给排除掉吧？字母是对的，但确实不是英语，怎么办呢？

爱疯

=OR(AND(CODE(B2)>47,CODE(B2)<58),AND(CODE(B2)>96,CODE(B2)<123))

yayahzmeng

爱疯 发表于 2017-2-1 20:48
=OR(AND(CODE(B2)>47,CODE(B2)96,CODE(B2)

谢谢{:11:}