excel2010大局部替换文本的办法与代码

MicrosoftExcel2010，可以通过比以往更多的方法分析、管理和共享信息，从而帮助您做出更好、更明智的决策。全新的分析和可视化工具可帮助您跟踪和突出显示重要的数据趋势。可以在移动办公时从几乎所有 Web 浏览器或 Smartphone 访问您的重要数据。您甚至可以将文件上载到网站并与其他人同时在线协作。无论您是要生成财务报表还是管理个人支出，使用 Excel 2010 都能够更高效、更灵活地实现您的目标。

　　其实这个问题不算是大问题，但是网络信息的量实在是太大了，搜索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中的杭州全部替换为广州，很简单吧!

Excel 2010 提供了供人们在工作簿上协同工作的简便方法，提高了人们的工作质量。

……

标签:excel2010大局部替换文本的办法与代码