以下代碼執行條件:選擇需要替換的單元格區域；
子替換（）
Dim rng作為範圍，newtxt作為字符串，oldtxt作為字符串，t作為字符串
出錯時繼續下壹步
Oldtxt =應用程序。InputBox（“輸入要替換的字符:“，“1“）
Newtxt =應用程序。InputBox（“輸入要替換的字符:“，“1“）
對於選擇中的每個rng
t =替換（rng。Value，oldtxt，newtxt）
rng。值= t
然後
末端接頭