VBA之正则表达式（7）

实例需求：数据保存在A列中，数据组之间使用全角逗号分隔，重整后需要将每组数据开始的圆括号部分移动到末尾，并合并相同的全角方括号内容。貌似这个需求有些拗口，实际效果见B列。

示例代码如下。

Sub RegExpReOrg()    Dim strTxt As String, strKey As String    Dim objRegEx As Object, objMatch As Object    Dim objMH As Object, c As Range, rngData As Range    Dim dic As Object, k    Set objRegEx = CreateObject("vbscript.regexp")    Set dic = CreateObject("scripting.dictionary")    objRegEx.Pattern = "(\(\d+\))(【.+?】)(.*?)，"    objRegEx.Global = True    Set rngData = Range([A2], Cells(Rows.Count, "A").End(xlUp))    rngData.Offset(0, 1).ClearContents    For Each c In rngData        strTxt = Application.Clean(c.Value) & "，"        Set objMatch = objRegEx.Execute(strTxt)        If objMatch.Count > 0 Then            dic.RemoveAll            For Each objMH In objMatch                strKey = objMH.submatches(1)                If dic.exists(strKey) Then                    dic(strKey) = dic(strKey) & "，" & objMH.submatches(2) & objMH.submatches(0)                Else                    dic(strKey) = objMH.submatches(2) & objMH.submatches(0)                End If            Next            strTxt = ""            For Each k In dic.Keys                strTxt = strTxt & Chr(10) & k & dic(k)            Next            c.Offset(0, 1) = Mid(strTxt, 2)        End If    Next    Set objMH = Nothing    Set objMatch = Nothing    Set objRegEx = NothingEnd Sub

【代码解析】
第6行代码使用后期绑定创建字典对象。
第7行代码使用后期绑定创建正则对象。
第8行代码指定正则匹配字符串。

匹配模式	含义	submatches序号
(\(\d+\))	匹配圆括号包裹的至少1位数字，此处圆括号需要使用反斜杠进行转义	0
(【.+?】)	匹配全角方括号及其之中的内容，作为字典对象的Key	1
(.*?)	匹配“】”之后的字符，使用非贪婪匹配	2
，	匹配每组数据末尾的全角逗号	-

第9行代码指定数据区域。
第10行代码清空B列单元格。
第12行代码第31行代码循环处理工作表A列中的数据。
第13行代码读取单元格内容并在末尾添加一个全角逗号，便于正则匹配
第14行代码执行正则匹配。
如果匹配成功，那么第17行到第24行代码使用For循环结构整理数据。
第16行代码清空字典。
第18行代码获取字典的键值。
第19行到第23行代码如果字典中存在相同键值，就将相应的字符组合后保存在字典中，如果不存在，则添加键值对。
第26行到第28行代码按照多行格式整理数据。
第29行代码将数据写入B列单元格。