=SUBSTITUTE(A1,B1,"$$")
下面的代码是假设你的文本指的是text1但要是你说的文本是txt,就用input读取到text1,最后完成替换后用output写入到原txt文件内就行了````
Private Sub Command1_Click()
s = Split(Text1, vbCrLf)
Text1 = ""
For i = 0 To UBound(s)
If i < 2 Then s(i) = Replace(s(i), "111", "a0a")
If i > 1 And i < 4 Then s(i) = Replace(s(i), "111", "a1a")
If i > 3 Then s(i) = Replace(s(i), "111", "a2a")
Text1 = Text1 & s(i) & vbCrLf
Next i
End Sub
先选中A列，然后按Ctrl+F，里面就有替换的功能，很方便的，你试试就知道了。
菜单，编辑，查找或替换
先把A替换成C（确定不要和文档中已经有的内容重复），再把B换A，最后把C换成B。