再见了，Ctrl+H！这才是最牛的替换方法，你知道吗？

学员的问题，左边的名称要分别将右边的字符替换掉，正常情况下，需要Ctrl+H，查找10多次并替换才能完成，有没更好的方法？

早期分享过类似的教程，用PQ解决，详见文章：

高级替换真好用，一次替换多个不同内容无烦恼，让替换变得随心所欲

学员提供的表格内容不够直观，换个直观点的数据源。

不管需要替换多少内容，都是点一下按钮就搞定。

如果需要将内容分别替换成新内容也可以，超方便。

点开发工具，VB，插入模块，将代码粘贴进去。

Sub 批量替换()

ar = [f2:g5] '对应表

For i = 1 To UBound(ar, 1)

[a2:a10].Replace ar(i, 1), ar(i, 2) '对A列的内容按照对应表进行替换

Next

End Sub

Replace函数除了可以替换单元格的内容，也可以替换工作表名称。

同样，是点下按钮就可以替换工作表名称。

代码：

Sub 替换工作表名称()

ar = [a2:b5] '对应表

For Each sht In Worksheets

For i = 1 To UBound(ar, 1)

sht.Name = Replace(sht.Name, ar(i, 1), ar(i, 2)) '替换工作表名称

Next

Next

End Sub

那些好用的VBA代码记得收藏起来，下回遇到类似的问题就可以拿出来，改区域就可以使用，能够帮你节省大量的时间。