VBA之正则表达式（44）-- 拆分商品和规格

实例需求：商品组清单保存在A列中，现需要将其拆分为商品名称，保存在从B列开始的后续单元格中，部分商品包含规格，并且多种规格属性使用了逗号分隔，因此无法直接使用Excel分列功能完成数据拆分。

示例代码如下。

Sub Demo()
    Dim objRegExp as Object
    Dim lngLstRow As Long
    Dim iCol As Integer, i As Integer
    Dim sText As String
    Set objRegExp = CreateObject("vbscript.regexp")
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    objRegExp.Pattern = "[一-龟]+(（.*?）)?"
    lngLstRow = [a1].End(xlDown).Row
    For i = 2 To lngLstRow
        sText = Trim(Cells(i, 1))
        Set objMHs = objRegExp.Execute(sText)
        iCol = 2
        
        For Each objMH In objMHs
            Cells(i, iCol) = objMH
            iCol = iCol + 1
        Next
    Next
    Set objRegExp = Nothing
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

【代码解析】
第6行代码创建正则对象。
第7行代码设置正则匹配忽略字符大小写。
第8行代码设置正则全局匹配。
第9行代码设置正则匹配模式。

匹配结果如下图所示。

第11行代码清空保存结果的单元格区域。
第12~20行代码循环处理数据。
第13行代码读取A列单元格内容。
第14行代码执行正则匹配。
第15行代码设置保存拆分结果的起始列。
第16~19行代码循环读取匹配结果，写入工作表单元格。
第21行代码释放对象变量占用的系统资源。