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

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

2、【第二步】 用鼠标右键单击“目录”工作表名称，在弹出的菜单中选择“查看代码”，之后就会打开代码编辑器，或者直接按下组合键Alt+F11来打开代码编辑窗口。

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

4、【第四步】 运行“获取各工作表的名称”代码组之后，我们将会看到在“目录”工作表中第一列出现了每个工作表的名称，并按工作表顺序排列。

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

6、【第六步】打开VB代码编辑窗口，再一次选择插入新的模块，把“更改名称”代码复制粘贴到模块中，再点击梯瓣氨割开始运行代码，然后最小化代码窗口。Public Sub 更改名称() For i = 2 To Worksheets.Count Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value NextEnd Sub

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