包含家庭地址的单元格是否可以用VBA拆分

jsgj2023

1. Option Explicit
   
2. 
   
3. Sub 拆分家庭住址()
   
4.     Dim Reg, Mat, Ma, x&, arr2(1 To 10000, 1 To 3), k&
   
5.     Dim R&, Arr, Brr, i&, a&
   
6.     Application.ScreenUpdating = False
   
7.     R = Cells(Rows.Count, 1).End(xlUp).Row
   
8.     Arr = Range("a2:a" & R)
   
9.     Set Reg = CreateObject("Vbscript.RegExp")
   
10.     With Reg
    
11.         .Global = True
    
12.           .Pattern = "([\u4e00-\u9fa5]*省)?([\u4e00-\u9fa5]*[市县])?([\u4e00-\u9fa5]*[县|市|区])"
    
13.     End With
    
14.     For i = 1 To UBound(Arr)
    
15.             Set Mat = Reg.Execute(Arr(i, 1))
    
16.             For Each Ma In Mat
    
17.                 For x = 1 To 3
    
18.                     arr2(i, x) = Reg.Replace(Ma, "$" & x)
    
19.                 Next x
    
20.             Next Ma
    
21.         Next i
    
22.     [c:e].Clear
    
23.     [c1].Resize(1, 3) = Array("省市", "地市", "县市区")
    
24.      For a = 1 To UBound(arr2)
    
25.         If arr2(a, 1) = "" Then
    
26.                 arr2(a, 1) = "山东省"
    
27.         End If
    
28.      Next a
    
29.        [c2].Resize(i, 3) = arr2
    
30.     Range("c:e").EntireColumn.AutoFit
    
31.     Range("c1:e" & R).Borders.LineStyle = xlContinuous
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    
34. 
    

复制代码

jsgj2023

详见附件。

johnwalk

用函数还不太行

johnwalk

jsgj2023 发表于 2016-8-1 10:22
详见附件。

哇塞 跪了...

johnwalk

dongfgdwdjg 发表于 2016-8-1 12:48
您能否按您的思路另出一个解决方案？我想多学习学习！谢谢！！

比较复杂 还不容错没有，全部做完  供参考

johnwalk

一种取巧的方法，用分步截取并替换的办法
还是用大神的vba吧 比较好

dongfgdwdjg

johnwalk 发表于 2016-8-1 14:48
比较复杂 还不容错没有，全部做完  供参考

不好意思，我没太弄明白。你的公式最终输出效果如图？还是哪个环节出了问题了？

dongfgdwdjg

jsgj2023 发表于 2016-8-1 13:52
详见附件。

谢谢jsgj2023老师！大神啊，对我太有帮助了。

dongfgdwdjg

jsgj2023 发表于 2016-8-1 13:52
详见附件。

不过，大神，请问一下，我原来的规则中如果出现两个 市，如青岛市平度市，把前一个市青岛市 归为地市，后一个市平度市归为县市区 ， 看您没有 解决。这个事儿能解决吗？当然，如果不能解决，我手动解决也可。
就如本次附件，区和小区也都合一块儿了。
呵呵，太麻烦您了。

jsgj2023

dongfgdwdjg 发表于 2016-8-1 17:14
不过，大神，请问一下，我原来的规则中如果出现两个 市，如青岛市平度市，把前一个市青岛市 归为地市，后 ...

恩，这个情形我也发现了，因为是极个别的，所以就手工处理一下吧。