excel2010大局部替換文本的方法與代碼

 　　其實這個問題不算是大問題，但是網(wǎng)絡(luò)信息的量實在是太大了，搜索excel批量替換，一大推的信息，我測試了一個下午，總算是找到了可以使用的代碼了，這段代碼需要用到多個excel表格，里面的內(nèi)容變化比較小，所以只需要一個模板后面就可以繼續(xù)用了，代碼如下

　　Sub 批量替換()

　　Cells.Replace What:="Business Services (Services)", Replacement:="111"

　　Cells.Replace What:="Miscellaneous Establishments", Replacement:="222"

　　Cells.Replace What:="Miscellaneous Retail (Stores)", Replacement:="333"

　　'以此類加 理論上可以添加無限個，按需要，很方便

　　End Sub

　　上面這個適用于數(shù)據(jù)替換比較多的，如果數(shù)據(jù)不是很多，也可以使用下面的代碼

　　Sub RngReplace()

　　Range("A1:A10").Replace "杭州", "廣州"

　　End Sub

　　這個將A1:A10中的杭州全部替換為廣州，很簡單吧!