excel2010批量替换文本的方法和代码

其实这个问题不算是大问题，但是网络信息的量实在是太大了，搜索excel批量替换，一大推的信息，我测试了一个下午，总算是找到了可以使用的代码了，这段代码需要用到多个excel表格，里面的内容变化比较小，所以只需要一个模板后面就可以继续用了，代码如下

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

上面这个适用于数据替换比较多的，如果数据不是很多，也可以使用下面的代码

Sub RngReplace()

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

End Sub

这个将A1:A10中的杭州全部替换为广州，很简单吧!