由于我经常要整理订单，剪切，粘贴很麻烦，特别是单子一多，总感觉事倍功半。
由于有VBA这个神器，我想试着去解决这个问题。
分析问题
平常我从网站上得到的数据是这样的。
我每次要把他变为以下这样的。
那么我一个单差不多有三个动作
- 选中名字剪切，到对应的名字那一列粘贴
- 选中手机号码剪切，到对应的手机号码那一列粘贴
- 删除两个逗号
单子一多会令我很难受，于是我开始认真分析，企图找到其中的解决方法。
我的思路是这样的
- 拿到每一列的字符串，然后观察规律，是这样的
地址+逗号+空格+名字+逗号+空格+11位手机号码
- 得到手机号码
"\s\d{11}" '匹配空格+11位手机号码
- 类似的得到名字，这里不多说
- 本身那一列要删除掉包括第一个逗号之后的所有字符，匹配到要删除的然后用空代替即可。
代码
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
