VBA之正则表达式（22）-- 组合数据拆分（2/2）

实例需求：规格数据保存在A1单元格，其中包含多行数据，每行数据都是有多个字段组合而成，现在需要将数据拆分为C列至H列的数据（假设第2行的标题行已经存在）。

上一篇博客已经实现了数据拆分，但是正则模式表达式有些长，下面介绍一个更简单的方法。

Sub Demo2()
    Dim regExp as Object
    Set regExp = CreateObject("vbscript.regExp")
    regExp.Global = True
    regExp.Pattern = "[^一-龟\d\n]+"
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText regExp.Replace([a1], vbTab)
        .PutInClipboard
    End With
    [c3].PasteSpecial
    Set regExp = Nothing
End Sub

【代码解析】
第3行代码创建正则表达式对象。
第5行代码设置匹配模式。

正则表达式	说明
一-龟	匹配中文字符
\d	匹配数字
\n	匹配换行符
[^一-龟\d\n]+	匹配不属于上述3种字符的一个或者多个字符

第6行代码创建DataObject对象。
第7行代码执行正则替换，将匹配字符替换为Tab。
第8行代码将正则替换结果保存到系统剪贴板中。
第10行代码将结果粘贴到C3单元格开始的区域中。
第11行代码清空对象变量，释放系统资源。

---

结合使用正则替换，有时可以使用更简单的正则表达式解决问题。使用正则比较简单，用好正则并不简单。