用Mid语句来实现字符串替换

Mid语句可以用于替换，速度非常快。
其语法与我们取字符的MID函数语法相同，只不过等号左右颠倒了一下
Mid(要替换的字符串, 起始位置[, 替换长度]) = 用于替换的字符串
例如下面语句，将MyStr的第五位替换成0

Dim MyStr$ MyStr$ = "123456789" Mid(MyStr, 5, 1) = "0" Debug.Print MyStr '输出123406789

用Mid语句替换后的字符串与原字符串长度保持一致，不会改变。
如果要替换两位，则后面的替换值也必须得两位，否则只能替换一位

Mid(MyStr, 5, 2) = "0" '由于给第五、第六位的赋值仅一位字符串，所以仅替换一位 Debug.Print MyStr '输出123406789 Mid(MyStr, 5, 2) = "00" '此时，第五第六位都替换 Debug.Print MyStr '输出123400789

如果省略Mid语句的第三个参数，则等号右边的值有几位就替换几位，但最长不超过MyStr原长

Mid(MyStr, 5) = "0000000" Debug.Print MyStr '输出123400000

复制公式或代码用Mid可以实现类似于Replace的功能，但是只能替换第一个匹配值

MyStr$ = "123467855" Mid(MyStr, InStr(1, MyStr, 5), 1) = "0" '将第一个5替换成0 Debug.Print MyStr '输出123467805

在特定情况下，用Mid来代替Replace，可以提高速度。