如何在一个工作簿里面批量更改工作表的名称？

Question

如题所述

Answer 1

Excel批量修改工作表名称，方法如下：
第一步：建议对原工作簿做一个备份。另外，如果工作簿中工作表之间存在公式引用，就不要做批量修改工作表名。
第二步：在VBA编辑器中插入新模块，把下面的代码复制到模块中。
第三步：按F5运行一下，就完成对所有工作表名称的批量修改了。
代码如下：
SUB
BatchNameSheets()
Dim i as long
For i=1 to 10
'也可以按实际情况更改遍历范围，如2 to 20
WorkSheets(i).Name="MySheet"
& i '=后面是需要修改后的名称，可按个人的需要指定

Next i
End Sub
以上就是用VBA方式指更改工作表名称的方法之一。