实例需求：商品组清单保存在A列中，现需要将其拆分为商品名称，保存在从B列开始的后续单元格中，部分商品包含规格，并且多种规格属性使用了逗号分隔，因此无法直接使用Excel分列功能完成数据拆分。
示例代码如下。
Sub Demo()Dim objRegExp as ObjectDim lngLstRow As LongDim iCol As Integer, i As IntegerDim sText As StringSet objRegExp = CreateObject("vbscript.regexp")objRegExp.IgnoreCase = TrueobjRegExp.Global = TrueobjRegExp.Pattern = "[一-龟]+(（.*?）)?"lngLstRow = [a1].End(xlDown).RowFor i = 2 To lngLstRowsText = Trim(Cells(i, 1))Set objMHs = objRegExp.Execute(sText)iCol = 2For Each objMH In objMHsCells(i, iCol) = objMHiCol = iCol + 1NextNextSet objRegExp = Nothing
End Sub
【代码解析】
第6行代码创建正则对象。
第7行代码设置正则匹配忽略字符大小写。
第8行代码设置正则全局匹配。
第9行代码设置正则匹配模式。
| 正则表达式 | 说明 |
|---|---|
[一-龟]+ | 匹配一个或者多个中文字符 |
(（.*?）)? | 匹配全角括号包裹的任意字符，可以不包含此部分 |
匹配结果如下图所示。
第11行代码清空保存结果的单元格区域。
第12~20行代码循环处理数据。
第13行代码读取A列单元格内容。
第14行代码执行正则匹配。
第15行代码设置保存拆分结果的起始列。
第16~19行代码循环读取匹配结果，写入工作表单元格。
第21行代码释放对象变量占用的系统资源。
