用VBA提取“镇、乡、街道”，从第2个字开始查，否则...

myassz

用VBA将学校所属地分别提取到相应单元格，分别在单元格中查询“镇、乡、街道”，从第2个字开始查，否则就是“县直”

smiletwo

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim reg As New RegExp
   
5.     With reg
   
6.         .Global = False
   
7.         .Pattern = ".+?(镇|乡|街道)"
   
8.     End With
   
9.     With Worksheets("sheet1")
   
10.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.         arr = .Range("a2:a" & r)
    
12.         ReDim brr(1 To UBound(arr), 1 To 1)
    
13.         For i = 1 To UBound(arr)
    
14.             Set mh = reg.Execute(arr(i, 1))
    
15.             If mh.Count > 0 Then
    
16.                 brr(i, 1) = mh(0)
    
17.             Else
    
18.                 brr(i, 1) = "县直"
    
19.             End If
    
20.         Next
    
21.         .Range("b2").Resize(UBound(brr), 1) = brr
    
22.     End With
    
23. End Sub
    

复制代码

chxw68

详见附件。

myassz

chxw68 发表于 2023-2-1 15:06
详见附件。

出现错误的，不知道是怎么回事，谢谢！

zlzz1971

请用WPS运行

chxw68

修改好了。

myassz

感谢大家的帮助