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

下面一起来看看如何快速批量更改工作表名称。

方法

首先打开要进行操作的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表格中，可以发现所有的工作表名称被更改了。