由于我经常要整理订单，剪切，粘贴很麻烦，特别是单子一多，总感觉事倍功半。

由于有VBA这个神器，我想试着去解决这个问题。

分析问题

平常我从网站上得到的数据是这样的。

我每次要把他变为以下这样的。

那么我一个单差不多有三个动作

1. 选中名字剪切，到对应的名字那一列粘贴
2. 选中手机号码剪切，到对应的手机号码那一列粘贴
3. 删除两个逗号

单子一多会令我很难受，于是我开始认真分析，企图找到其中的解决方法。

我的思路是这样的

1. 拿到每一列的字符串，然后观察规律，是这样的

地址+逗号+空格+名字+逗号+空格+11位手机号码

2. 得到手机号码

"\s\d{11}" '匹配空格+11位手机号码

3. 类似的得到名字，这里不多说
4. 本身那一列要删除掉包括第一个逗号之后的所有字符，匹配到要删除的然后用空代替即可。

代码

Dim mycolumns '表示某一列的行数
Dim a As String
Dim x As String, name As String, tel As String
Dim regex As Object, telsum, teldigit, namesum, namedigit

mycolumns = [F65536].End(xlUp).Row '这一列的行数

For i = 2 To mycolumns '循环从第二行到最后有效的最后一行

a = Range("F" & i) '得到目前的字符串

With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "\s\d{11}" '匹配空格+手机号码
    Set telsum = .Execute(a) '得到手机号码
    tel = ""
    For Each teldigit In telsum
        tel = tel & teldigit
    Next
    .Pattern = "\,\s[\u4e00-\u9fa5]+"
    Set namesum = .Execute(a)
    name = ""
    For Each namedigit In namesum
        name = name & namedigit
    name = Mid(name, 3, 6)
    Range("A" & i) = name
    Range("B" & i) = tel
    .Pattern = "\,\s[\u4e00-\u9fa5]+\,\s\d{11}"
    a = .Replace(a, "")
    Range("F" & i) = a
    Next
End With
Next