下面一起来看看如何快速批量更改工作表名称。
方法
首先打开要进行操作的Excel表格。
打开后用鼠标右键单击第一个工作表，在弹出的对话框中点击插入。
在弹出的插入窗口中选择工作表后点击确定。
然后用鼠标右键单击刚才插入的工作表，在弹出的对话框中点击重命名。
然后将刚才插入的工作表重命名为目录。
然后用鼠标右键单击目录工作表，在弹出的对话框中点击查看代码。
然后在打开的VB代码编辑窗口中依次点击插入-模块。
然后在插入的模块中输入以下代码，输入完成后点击运行按钮。
Public Sub 获取各工作表的名称()
For i = 1 To Worksheets.Count
Sheets("目录").Cells(i, 1).Value = Worksheets(i).Name
Next
End Sub
这时回到目录工作表，可以发现所有的工作表名称。
然后在后面一列中输入要更改的名称者积团宽低距。
然后再次打开的VB代码编辑窗口，依次点击插入-模块。
在打开的新的模块窗口中输入以下代码，然后点击运行按钮。
Publi阿息刘抗创沿季万等比c Sub 更改名称()
For i = 2 To Wo封rksheets.Count
Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value
Next
End Sub
然后回到Excel表格中，可以发现所有的工作表名称被更改了。