excel2016将sheet工作表一次性批量重命名的方法

如果我们有一系列的Excel表格需要重命名，怎么一次性批量重命名呢？下面一起看看excel2016将sheet工作表一次性批量重命名的方法.

具体如下：

1. 1. 第一步，我们打开excel表格文件后，再重新新建一个sheet表；

   

2. 2. 在新建的这个sheet表中，我们依次输入各个sheet表的名字；

   

3. 3. 输入完后，点击定位的菜单栏选项“开发工具”，如图所示。

   

4. 4. 在开发工具的下拉菜单中，点击“查看代码”按钮。

   

5. 5.弹出VBE对话窗口后，我们在如下图的地方下拉找到并点击“ThisWorkBooK”一项，然后右键选择点击“插入/模块”菜单项。

   

6. 6. 接下来在弹出的窗口中输入代码

   Sub 重命名()

   Dim i&

   For i = 2 To Sheets.Count

   Sheets(i).Name = Sheets(1).Cells(i, 1)

   Next

   End Sub

   

7. 7. 输入完后就可以把VBE窗口关闭了，接下来我们再点击开发工具上的“插入/按钮”菜单项。

   

8. 8. 接下来在表格中拖动鼠标，建立一个按钮，然后会弹出指定宏窗口，选择“重命名”一项，最后点击确定按钮。

   

9. 9. 接下来，再点击开发工具下的“设计模式”按钮，将这个状态取消。

   

10. 10. 然后点击一下我们刚刚新建的那个按钮，会发现下面的sheet表全都重命名了，效果如下图。

    

11. 以上就是excel2016将工作表一次性批量重命名的方法。