Osheep

时光不回头,当下最重要。

VBA+正则表达式解决订单小问题

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

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

分析问题

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

《VBA+正则表达式解决订单小问题》

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

《VBA+正则表达式解决订单小问题》

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

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

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

我的思路是这样的

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

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

  1. 得到手机号码

“\s\d{11}” ‘匹配空格+11位手机号码

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

代码

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
点赞