Excel批量修改工作表名称

上一节总结了批量生成多个相同工作表的方法。对于大批量的工作表，逐个更改工作表名名称也是一件十分麻烦的事情。通过宏来批量修改工作表名称将会极大的降低工作量。以下通过一个示例来演示如何批量修改工作表名称。

目标：按目录中的11个姓名分别命名目录后的11个工作表。

方法：插入模块，在模块中输入如下代码：

Public Sub ChangeName()

For i = 2 To Worksheets.Count

  Sheets(i).Name = Sheets("目录").Cells(i, "B").Value

  Next

End Sub

运行代码，即可批量修改工作表名称。

结果展示：下图中目录后的11个工作表已按相应姓名进行修改。