EXCEL如何在地址栏中 提取姓名 联系电话 省 市 区/县 详细地址 等信息

xinkaimaos

EXCEL如何在源数据中 提取姓名 手机 省 市 县级市区/县  公司 详细地址

源数据是变量，数据后期需要添加的 ，生成的数据表（工作表2）根据（源数据）来变化


我需要的格式 - 副本.rar (3.66 KB, 下载次数: 25)

2016-4-7 10:26 上传

点击文件名下载附件

xinkaimaos

http://www.excelpx.com/thread-372309-1-3.html

看到其他帖子里的老师这样做了。。求修改一下啊！

baksy

xinkaimaos 发表于 2016-4-7 10:30
http://www.excelpx.com/thread-372309-1-3.html

看到其他帖子里的老师这样做了。。求修改一下啊！

附件

grf1973

继续练习正则。

1. Sub tt()
   
2.     arr = Range("a1:a21")
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "^(.*?)(?=，).(\d+?)(?=，).(北京市|上海市|重庆市|天津市|.*省|.*自治区)(.*?市|.*?区|.*?州)(.*?县|.*?区|.*?市)?(.*)"
   
6.         ReDim brr(2 To UBound(arr), 5)
   
7.         For i = 2 To UBound(arr)
   
8.             For Each m In .Execute(arr(i, 1))
   
9.                 For j = 0 To 5
   
10.                     brr(i, j) = m.submatches(j)
    
11.                 Next
    
12.             Next
    
13.         Next
    
14.     End With
    
15.     Sheets(2).[a2].Resize(UBound(arr) - 1, 6) = brr
    
16. End Sub
    

复制代码