[已解决]请问如何用vba数组的方法将R列的数据填入乡镇村别组别

zxc1152468

请问如何用vba数组的方法将R列的数据填入乡镇村别组别 补偿名册.zip (16.83 KB, 下载次数: 7)

2015-1-15 21:34 上传

点击文件名下载附件 ,并且r列的数据有多少行是不固定的

最佳答案

月排行榜 / 总排行榜

ppp710715

2015-1-15 22:35

1. Sub 拆分() '执行多个正则表达式
   
2. Set regx = CreateObject("vbscript.regexp")
   
3. rw = Cells(Rows.Count, "r").End(3).Row
   
4. With regx
   
5.     .Global = True
   
6.     For Each ar In Array("\S+(?=镇)|\S+办事处", "\S{2}(?=村)|\S{2}居委会", "\d{1,2}|((\D{1,2})(?=组))") '将多个正则表达式写在一个数组中
   
7.         n = n + 1
   
8.         .Pattern = ar '循环正则表达式
   
9.         For Each Rng In Range("r4:r" & rw)
   
10.            Set mat = .Execute(Rng)
    
11.             For Each m In mat
    
12.              y = y + 1
    
13.             Cells(Rng.Row, y + n + 3) = m
    
14.              Next
    
15.              y = 0
    
16.         Next
    
17.     Next
    
18. End With
    
19. End Sub
    

复制代码

补偿名册123.rar (14.84 KB, 下载次数: 6)

2015-1-15 22:35 上传

点击文件名下载附件

跳转到最佳答案楼层

ppp710715

1. Sub 拆分() '执行多个正则表达式
   
2. Set regx = CreateObject("vbscript.regexp")
   
3. rw = Cells(Rows.Count, "r").End(3).Row
   
4. With regx
   
5.     .Global = True
   
6.     For Each ar In Array("\S+(?=镇)|\S+办事处", "\S{2}(?=村)|\S{2}居委会", "\d{1,2}|((\D{1,2})(?=组))") '将多个正则表达式写在一个数组中
   
7.         n = n + 1
   
8.         .Pattern = ar '循环正则表达式
   
9.         For Each Rng In Range("r4:r" & rw)
   
10.            Set mat = .Execute(Rng)
    
11.             For Each m In mat
    
12.              y = y + 1
    
13.             Cells(Rng.Row, y + n + 3) = m
    
14.              Next
    
15.              y = 0
    
16.         Next
    
17.     Next
    
18. End With
    
19. End Sub
    

复制代码

补偿名册123.rar (14.84 KB, 下载次数: 6)

2015-1-15 22:35 上传

点击文件名下载附件