excel2016将sheet工作表一次性批量重命名的方法
如果我们有一系列的Excel表格需要重命名,怎么一次性批量重命名呢?下面一起看看excel2016将sheet工作表一次性批量重命名的方法.
具体如下:
1. 第一步,我们打开excel表格文件后,再重新新建一个sheet表;
2. 在新建的这个sheet表中,我们依次输入各个sheet表的名字;
3. 输入完后,点击定位的菜单栏选项“开发工具”,如图所示。
4. 在开发工具的下拉菜单中,点击“查看代码”按钮。
5.弹出VBE对话窗口后,我们在如下图的地方下拉找到并点击“ThisWorkBooK”一项,然后右键选择点击“插入/模块”菜单项。
6. 接下来在弹出的窗口中输入代码
Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
7. 输入完后就可以把VBE窗口关闭了,接下来我们再点击开发工具上的“插入/按钮”菜单项。
8. 接下来在表格中拖动鼠标,建立一个按钮,然后会弹出指定宏窗口,选择“重命名”一项,最后点击确定按钮。
9. 接下来,再点击开发工具下的“设计模式”按钮,将这个状态取消。
10. 然后点击一下我们刚刚新建的那个按钮,会发现下面的sheet表全都重命名了,效果如下图。
以上就是excel2016将工作表一次性批量重命名的方法。
赞 (0)