regex - VBA + 正则表达式 + 范围.替换

Question

关闭。这个问题需要多问 focused 。目前不接受答案。

---

想要改进此问题吗？更新问题，使其仅关注一个问题 editing this post .

已关闭 7 年前。

Improve this question

我通过使用 JavaScript 获得了一些正则表达式知识，但现在我想在 Excel 和 VBA 中使用它，但在使其工作时遇到一些问题。

我想替换>abc与 <br>> abc .

在 JavaScript 中我使用 >([a-zA-Z0-9])和<br>> $1 ，但这里我不知道该怎么做。

我也想将它与 Range.Replace 一起使用函数，如:

oRange.Replace What:=">abc", Replacement:="<br>> abc", MatchCase:=False

任何帮助将不胜感激。

Answer 1

也许像这样的例行公事。这将使用模式搜索指定范围并替换内容...

希望有帮助。

Public Sub RegExMatchAndReplace(ByVal Pattern As String, ByVal Data As Range, ByVal Replace As String)


Dim oRegEx As New RegExp
Dim rPtr As Range

For Each rPtr In Data
    With oRegEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
        .Pattern = Pattern
        rPtr.Value = oRegEx.Replace(rPtr.Value, Replace)
    End With
Next

End Sub