明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

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

[摘要]其实这个问题不算是大问题,但是网络信息的量实在是太大了,搜索excel批量替换,一大推的信息,我测试了一个下午,总算是找到了可以使用的代码了,这段代码需要用到多个excel表格,里面的内容变化比较小...

   其实这个问题不算是大问题,但是网络信息的量实在是太大了,搜索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 提供了供人们在工作簿上协同工作的简便方法,提高了人们的工作质量。