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

这篇具有很好参考价值的文章主要介绍了VBA之正则表达式（44）-- 拆分商品和规格。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

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

VBA之正则表达式（44）-- 拆分商品和规格,数据清洗,VBA,正则,正则表达式,正则,数据清洗,提取数据,正则匹配

示例代码如下。

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

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

正则表达式	说明
`[一-龟]+`	匹配一个或者多个中文字符
`(（.*?）)?`	匹配全角括号包裹的任意字符，可以不包含此部分

匹配结果如下图所示。
VBA之正则表达式（44）-- 拆分商品和规格,数据清洗,VBA,正则,正则表达式,正则,数据清洗,提取数据,正则匹配

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

到了这里，关于VBA之正则表达式（44）-- 拆分商品和规格的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！