求字符串提取，最好是正则表达式的VBA。

yyyydddd8888

      几个数字和几个字母为一组，每个字符串是由若干组组成，最少4组，最多8组，现在想提取出这些字符串中的第三组的这几个数字和几个字母。如附件：
      谢谢大神！



正则表达式求助.rar (359.87 KB, 下载次数: 100)

2014-1-13 17:52 上传

点击文件名下载附件

该贴已经同步到 yyyydddd8888的微博

chxw68

1. Sub test()
   
2.   Dim reg As New RegExp
   
3.   Dim r%, i%
   
4.   Dim arr
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "\d+[A-Z]+"
   
8.   End With
   
9.   With Worksheets("sheet1")
   
10.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     arr = .Range("a1:b" & r)
    
12.   End With
    
13.   For i = 1 To UBound(arr)
    
14.     Set matchs = reg.Execute(arr(i, 1))
    
15.     If matchs.Count > 2 Then
    
16.       arr(i, 2) = matchs(2).Value
    
17.     End If
    
18.   Next
    
19.   With Worksheets("sheet1")
    
20.     .Range("b1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)
    
21.   End With
    
22. End Sub

复制代码

chxw68

楼主说对了，这个用正则表达式非常简单。

liu-aguang

1. Sub test()
   
2.     Set reg = CreateObject("vbscript.regexp")
   
3.     r = [a1].End(xlDown).Row
   
4.     ReDim ar(1 To r, 1 To 1)
   
5.     reg.Pattern = "[\d]+[^\d]+[\d]+[^\d]+([\d]+[^\d]+)[\d-].+"
   
6.     For i = 1 To r
   
7.         ar(i, 1) = reg.Replace(Cells(i, 1), "$1")
   
8.     Next
   
9.     [b1].Resize(UBound(ar), 1) = ar
   
10. End Sub

复制代码

yyyydddd8888

chxw68 发表于 2014-1-13 18:05

谢谢老师！您的代码非常好用！全部正确！谢谢您！

yyyydddd8888

chxw68 发表于 2014-1-13 18:06
楼主说对了，这个用正则表达式非常简单。

老师！您是用选取matchs中的第三个值装入数组的，有没有办法直接提取第三组呢？
比如：

.pattern="(\d+[A-Z]+){3}\3
这样能不能直接提取出第三组呢？

jbjbzjb

fdfsddfsdf

chxw68

yyyydddd8888 发表于 2014-1-13 18:18
老师！您是用选取matchs中的第三个值装入数组的，有没有办法直接提取第三组呢？
比如：

我的这种办法比较简练。

yyyydddd8888

jbjbzjb 发表于 2014-1-13 18:22
fdfsddfsdf

真是大神啊！答案全部正确！太感谢了！谢谢！谢谢！

yyyydddd8888

chxw68 发表于 2014-1-13 18:25
我的这种办法比较简练。

哦！谢谢您了！