VBA之正则表达式（12）-- 格式调整

实例需求：数据保存在E列中，需要将其内容进行格式整理为F列的单元格内多行形式。

大家可能都知道手工操作的方法，双击单元格进入编辑状态，在需要换行的位置按<Alt>+<Enter>组合键进行换行，数据多的时候，简直就要搞到手抽筋了，而且非常容易出错，比如倒数第二行2.37kg可能被误操作加换行。
文本处理非正则莫属，示例代码如下。

Sub RegExpDemo()
    Dim strTxt As String
    Dim objRegEx As Object
    Dim oc As Range
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Global = True
    objRegEx.Pattern = "(\D)(\d+\.\D)"
    For Each c In Range([E15], Cells(Rows.Count, "D").End(xlUp).Offset(0, 1))
        strTxt = c.Value
        c.Offset(0, 1) = objRegEx.Replace(strTxt, "$1" & Chr(10) & "$2")
    Next
    Set objRegEx = Nothing
End Sub

【代码解析】

正则表达式	含义
(\D)	匹配数字编号之前的一个非数字字符，这样可以避免匹配第一个1.
(\d+.\D)	匹配一个或者多个数字加一个小数点，之后为一个非数字，避免匹配2.37kg

正则表达式中定义了两个组，替换时在两个组之间插入换行符CHR(10)。

正则替换就是这么简单！

---

相关博文链接：
VBA之正则表达式（12）-- 格式调整
VBA之正则表达式（13）-- 字符串变换
VBA之正则表达式（14）-- 提取指定位数的数字
VBA之正则表达式（15）-- 提取数字求和
VBA之正则表达式（16）-- 提取非重复值
VBA之正则表达式（17）-- 提取多组数据（去除末尾字符）