用VBA分离收件信息和合并货物信息（很有难度）

ugyun

各位老师：
如何用VBA实现从表“10月”分离出收件人信息到本表的B-E列，将姓名、电话、手机和地址单独放一列，并将货物信息合并到本表的“发货信息”栏。
谢谢了，这个可能很有难度，还望各位老师不吝赐教，真的谢谢了！




地址分离.rar (8.84 KB, 下载次数: 18)

2016-10-22 09:31 上传

点击文件名下载附件

小花鹿

用SPLIT分割就行了.................................................................................................................

ugyun

小花鹿 发表于 2016-10-22 09:54
用SPLIT分割就行了................................................................................... ...

还请老师帮我

microyip

原本可以用逗号作为分离对象，但第二条，怎么就成了，00000后面都要了呢？规则不清晰，不好处理

ugyun

microyip 发表于 2016-10-22 10:18
原本可以用逗号作为分离对象，但第二条，怎么就成了，00000后面都要了呢？规则不清晰，不好处理

您好，000000是系统默认邮编

ugyun

坐等高手出现……

CC例例

用正则写了一个。供楼主测试。

1. Sub Testrep()
   
2.     Dim Reg, Arr, Brr, mh, k, s$, i%, x%, y%
   
3.     Arr = Sheet1.UsedRange
   
4.     ReDim Brr(1 To UBound(Arr), 1 To 6)
   
5.     [a1].CurrentRegion.Offset(1).ClearContents
   
6.     Set Reg = CreateObject("vbscript.regexp")
   
7.     Reg.Pattern = "(^[一-龥]+)|(1|\d{2}-)(\d{10,11})|(0\d{3}-|0\d{2}-)(\d{8}|\d{7})"
   
8.     Reg.Global = True
   
9.     For i = 2 To UBound(Arr)
   
10.         If Trim(Arr(i, 10)) <> "" Then
    
11.             x = x + 1: y = 1
    
12.             Set mh = Reg.Execute(Arr(i, 10))
    
13.             For Each k In mh
    
14.                 y = IIf(y = 1, 2, IIf(InStr(k, "-") > 3, 3, 4))
    
15.                 Brr(x, y) = k
    
16.             Next
    
17.             s = Reg.Replace(Arr(i, 10), "")
    
18.             Brr(x, 5) = Mid(s, mh.Count + 1, Len(s))
    
19.             Brr(x, 6) = Arr(i, 1) & "件" & Arr(i, 3) & "-" & Arr(i, 2)
    
20.         Else
    
21.             Arr(i, 1) = Arr(i - 1, 1)
    
22.             Brr(x, 6) = Brr(x, 6) & Chr(10) & Arr(i, 1) & "件" & Arr(i, 3) & "-" & Arr(i, 2)
    
23.         End If
    
24.     Next
    
25.     [a2].Resize(UBound(Brr), 6) = Brr
    
26.     Set Reg = Nothing
    
27.     Set mh = Nothing
    
28. End Sub

复制代码

CC例例

>>>>>>>>>>>>>>>>>

小花鹿

microyip 发表于 2016-10-22 10:18
原本可以用逗号作为分离对象，但第二条，怎么就成了，00000后面都要了呢？规则不清晰，不好处理

我猜，他模拟结果的第一个应该是这个吧
浙江省 杭州市 拱墅区 祥符街道 北部软件园祥园路39号6号楼3层311室 ，310011

ugyun

CC例例 发表于 2016-10-22 11:06
用正则写了一个。供楼主测试。

感谢老师，就是数量不对