[已解决]提取不规则字符串中的日期，也许要用到正则表达式，求高手解救。

yanjk120

自己想破了脑袋，也没有实现如图所示的效果啊，求大神解救，附件已上传了。。。。。实在没法了。

最佳答案

月排行榜 / 总排行榜

ppp710715

2015-1-12 16:54

1. Sub test3()
   
2. Set regx = CreateObject("vbscript.regexp")
   
3. rw = Cells(Rows.Count, 5).End(3).Row
   
4. With regx
   
5.     .Global = True
   
6.     .Pattern = "\d+\-\d{1,}由.+"
   
7.     For Each RNG In Range("e2:e" & rw)
   
8.         Set mat = .Execute(RNG)
   
9.         For Each m In mat
   
10.             Cells(RNG.Row, "i") = m
    
11.         Next
    
12.     Next
    
13.      n = 0
    
14.     .Pattern = "\d+\-\d{1,}(?=由)"
    
15.     For Each RNG In Range("e2:e" & rw)
    
16.         Set mat = .Execute(RNG)
    
17.         For Each m In mat
    
18.             Cells(RNG.Row, "h") = m
    
19.         Next
    
20.     Next
    
21. End With
    
22. End Sub

复制代码

正则123.rar (9.23 KB, 下载次数: 10)

2015-1-12 16:54 上传

点击文件名下载附件

跳转到最佳答案楼层

ppp710715

1. Sub test3()
   
2. Set regx = CreateObject("vbscript.regexp")
   
3. rw = Cells(Rows.Count, 5).End(3).Row
   
4. With regx
   
5.     .Global = True
   
6.     .Pattern = "\d+\-\d{1,}由.+"
   
7.     For Each RNG In Range("e2:e" & rw)
   
8.         Set mat = .Execute(RNG)
   
9.         For Each m In mat
   
10.             Cells(RNG.Row, "i") = m
    
11.         Next
    
12.     Next
    
13.      n = 0
    
14.     .Pattern = "\d+\-\d{1,}(?=由)"
    
15.     For Each RNG In Range("e2:e" & rw)
    
16.         Set mat = .Execute(RNG)
    
17.         For Each m In mat
    
18.             Cells(RNG.Row, "h") = m
    
19.         Next
    
20.     Next
    
21. End With
    
22. End Sub

复制代码

正则123.rar (9.23 KB, 下载次数: 10)

2015-1-12 16:54 上传

点击文件名下载附件