使用正则进行格式规范的两种方法是(正则如何使用)

导语：使用正则进行格式规范的两种方法

题目：将红色框线区域内的多段----转换成--，如图中所示：

格式规范后的效果如下：

解法一、使用foreach正则结合法，效果如下：

代码如下：

Sub 使用foreach规范格式()

Dim 正则 As Object, 目标单元格 As Range

Set 正则 = CreateObject()

With 正则

.Global = True

.Pattern =

End With

For Each 目标单元格 In [a1:a5]

Cells(目标单元格.Row, 2).Value = 正则.Replace(目标单元格.Value, )

Next

End Sub

解法二、使用doloop正则结合法，代码如下：

Sub 使用doloop语句规范格式()

Dim 正则 As Object, n%, 目标单元格

Set 正则 = CreateObject()

With 正则

.Global = True

.Pattern =

End With

Do

n = n + 1

Cells(n, 2).Value = 正则.Replace(Cells(n, 1).Value, )

Loop Until Cells(n, 1).Value =

End Sub

总结：文中我们为了将变量改成了中文，更易于理解，实践证明运行是正常的，只是在书写代码的时候需要来回切换，稍有不便。

本文内容由小畅整理编辑！