正则表达式查找模式，然后插入模式

Question

使用 Excel VBA

我不确定你是否可以用正则表达式来做到这一点，但我想做的是像这样的刺痛

“这是一个示例字符串”

查找每个小写字母后面紧跟一个大写字母的实例，然后在其中插入一个管道。

所以最终的结果是这样的

“这|是|一个示例|字符串”

所以我猜测模式是“[a-z][A-Z]”

我开始认为我用正则表达式找错了树，应该尝试某种功能。

编辑:

感谢下面所有给出答案的人，你们给了我解决方案。

对于阅读本文的其他人来说，这就是我的最终结果:

Sub PipeInsert()

    Dim cell As Range
    For Each cell In Selection
        cell.Value = ReplaceTest(cell.Value, "([a-z])([A-Z])", "$1|$2")
    Next

End Sub


Function ReplaceTest(str1, patrn, replStr)
    Dim regEx

    ' Create regular expression.
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.Global = True

    ' Make replacement.
    ReplaceTest = regEx.Replace(str1, replStr)
End Function

Answer 1

正则表达式替换没问题:)

=regex("ThisIsAn ExampleString", "([a-z])([A-Z])", "$1|$2")

https://regex101.com/r/zF4mM5/1

_{我从 this answer 获取了 =regex() 函数- 以前从未使用过 Excel VBA...}