vba字符串替换函数

在VBA中，用于字符串替换的主要函数是 `Replace()` 函数。这个函数的基本语法如下：

NewString = Replace(OldString, FindWhat, Replacement[, Start[, Count]])

- `OldString`: 需要被替换的原始字符串。
- `FindWhat`: 要查找的内容，可以是一个固定的文本、通配符（如*、?）或者是正则表达式。
- `Replacement`: 替换后的文本。
- `Start` (可选): 替换开始的位置，从1开始计数，默认为1（表示字符串的起始位置）。
- `Count` (可选): 替换的数量，默认为 -1（表示替换所有匹配项）。

例如，如果你想把一个字符串中的所有空格替换成下划线，可以这样做：

Dim strOriginal As String
strOriginal = "Hello World"
Dim newStr As String
newStr = Replace(strOriginal, " ", "_")
Debug.Print newStr ' 输出：Hello_World

如果需要使用正则表达式模式进行替换，可以先创建一个 `RegExp` 对象，然后用 `ExecuteGlobal` 方法替换：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "[aeiou]"

Dim oldText As String
oldText = "Hello World"
Dim newText As String
newText = regEx.Replace(oldText, "")
Debug.Print newText ' 输出：Hll Wrld

这里用 `[aeiou]` 匹配任意单个小写字母，然后替换为空。