实例需求:数据保存在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)-- 提取多组数据(去除末尾字符)