点开发工具，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代码记得收藏起来，下回遇到类似的问题就可以拿出来，改区域就可以使用，能够帮你节省大量的时间。
