VBA Replace 替换子字符串

将字符串中的子字符串A全部替换为子字符串B。

语法

Function Replace(str, substringA, substringB, [Start], [Count], [Compare]

将字符串str中的子字符串substringA全部替换为substringB。

Start：可选项。表示从Start个字符开始查找替换，默认从头开始。

Count：可选项。表示替换多少个，默认替换所有。

Compare：可选项。默认区分大小写，设置为vbTextCompare不区分大小写。

示例

Sub sub8()
  Dim s1 As String
  s1 = "欢迎访问小步教程，小步教程持续升级中。"
  Debug.Print Replace(s1, "小步教程", "xiaobuteach.com")
  Debug.Print Replace(s1, "小步教程", "xiaobuteach.com", Count:=1) 

End Sub

输出结果：

欢迎访问xiaobuteach.com，xiaobuteach.com持续升级中。
欢迎访问xiaobuteach.com，小步教程持续升级中。