快递信息提取

我的城市你来过

=LET(x,TEXTSPLIT($A2,{"，";" ";"。";"；"}),CONCAT(IF(LENB(x)=SMALL(LENB(x),COLUMN(A1)),x,"")))

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. arr = Range("A2:A" & ar)
   
4. Dim brr()
   
5. mystr = Array("[\u4E00-\u9FA5]{2,3}", "\d{11}", "[\u4E00-\u9FA5]{4,}")
   
6. Set reg = CreateObject("vbscript.regexp")
   
7. ReDim brr(1 To ar, 1 To 3)
   
8. With reg
   
9.    .Global = True
   
10.   For i = 1 To ar - 1
    
11.    For j = 1 To 3
    
12.       .Pattern = mystr(j - 1)
    
13.       brr(i, j) = .Execute(arr(i, 1))(0)
    
14.    Next
    
15.   Next
    
16. End With
    
17. [C2].Resize(ar - 1, 3) = brr
    
18. End Sub

复制代码