求教

undine

a1单元格的内容是“10送3股派2元(含税)20180622”我希望用vba达到以下效果，将该字符串(a1单元格)中送股数量、派现数量、转增股数量、日期(的数值)分别打印到B1,C1,D1,E1单元格中
坛内大师能不能给出一个如何自动识别送股、派现、转增数量并筛选出来的方案？

vbee

1. Sub vbeef()
   
2. On Error Resume Next
   
3. 
   
4. a = [a1]
   
5. With CreateObject("VBSCRIPT.REGEXP")
   
6.   .Global = True
   
7.   
   
8.   .Pattern = "送(\d+)股"
   
9.   [b1] = .Execute(a)(0)
   
10.   
    
11.   .Pattern = "转(\d+)股"
    
12.   [C1] = .Execute(a)(0)
    
13.   
    
14.   .Pattern = "派(\d+)元"
    
15.   [D1] = .Execute(a)(0)
    
16.   
    
17.   .Pattern = "(\d+)$"
    
18.   [E1] = .Execute(a)(0)
    
19.   
    
20. End With
    
21. End Sub

复制代码

undine

谢谢！谢谢！

undine

vbee 发表于 2018-8-4 18:23

我再请教下，用正则分离出末8位数(日期)，跟使用excel函数left相比，哪个更省内存？

undine

vbee 发表于 2018-8-4 18:23

正则好像写错了，大哥