如何快速批量更改工作表名称

1、【第一步】 打开需要批量更改工作表名称的工作簿，在第一个工作表之前插入一个新的工作表，名称为“目录”，再单击到目录工作表中

3、【第三步】 在打开的VB代码编辑窗口中，选择插入新的模块，把下面的代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。Publ足毂忍珩ic Sub 获取各工作表的名称() For i = 1 To Worksheets.Count Sheets("目录").Cells(i, 1).Value = Worksheets(i).Name NextEnd Sub

5、【第五步】我们需要在 第二列中输入要更改的新名称，如A2为二班， B2输入Class 2，输入的新名称也要按着工作表顺序排列好。当然也可以改为其他名称。

7、【第七步】运行代码之后，我们但会工作表界面，就能看到效果，所有工作表已经按刚输入的名称进行了更改，非常有效率，尤其是对于工作表数量更多的工作簿来说。