实例需求:商品组清单保存在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行代码释放对象变量占用的系统资源。