[已解决]怎样用正则表达式表示英文字母串

爱疯

怎样用正则表达式表示英文字母串.rar (8.55 KB, 下载次数: 8)

2013-2-20 10:41 上传

点击文件名下载附件


问题：从A列，提取第1次出现的英文字母串，到B列。



表示1个数字：\d
表示1个字母：\w      任意一个字母或数字或下划线，也就是 A~Z,a~z,0~9,_ 中任意一个
为此，不知怎样表达更好？谢谢！

最佳答案

月排行榜 / 总排行榜

zjcat35

2013-2-20 11:09

1. "[a-zA-Z]{1,}"

复制代码

跳转到最佳答案楼层

zjcat35

1. "[a-zA-Z]{1,}"

复制代码

ybchxj2010

问题：从A列，提取第1次出现的英文字母串，到B列。

1. Sub test()
   
2.     Dim A, i
   
3.     A = Range("a1:a" & Range("a65536").End(xlUp).Row)
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Pattern = "[A-Za-z]+" '怎么写?
   
6.         For i = 1 To UBound(A)
   
7.             '如果存在匹配项，就匹配第一个匹配项
   
8.             If .test(A(i, 1)) Then
   
9.                 A(i, 1) = .Execute(A(i, 1))(0)
   
10.             Else
    
11.                 A(i, 1) = ""
    
12.             End If
    
13.         Next i
    
14.     End With
    
15.     [B1].Resize(i - 1) = A
    
16. End Sub

复制代码

不知道我的理解对不对

爱疯

ybchxj2010 发表于 2013-2-20 11:10
问题：从A列，提取第1次出现的英文字母串，到B列。不知道我的理解对不对

我明明试过的。。。。。可能是我没注意结果{:241:}