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，小步教程持续升级中。