excel2016怎么将工作表一次性批量重命名
前面我们介绍过如何重命令工作表的方法,如果一次重命名几个工作表还是很方便的,但如果一次重命名多个工作表的话,就会感觉有些吃力了,那么有没有办法批量重命名工作表呢?下面就一起来看看操作方法吧。
操作方法
- 01
首先打开需要编辑的Excel文档,然后点击新建工作表按钮,建一个新的工作表
- 02
在新建的工作表中A1输入标题,从A2开始输入工作表的新名称,依次向下输入即可。
- 03
输入完成后点击excel2016的“开发工具”菜单。
- 04
接下来点击工具栏上的“查看代码”按钮。
- 05
这进会自动打开VBE对话窗口,在窗口中找到“ThisWorkBooK”一项,然后右键点击该键,在弹出菜单中依次点击“插入/模块”菜单项。
- 06
接下来在打开的窗口中输入代码 Sub 重命名() Dim i& For i = 2 To Sheets.Count Sheets(i).Name = Sheets(1).Cells(i, 1) Next End Sub
- 07
关闭VBE窗口后,点击开发工具上的“插入/按钮”菜单项。
- 08
在表格中拖动鼠标,建立一个按钮,同时会弹出指定宏窗口,选择“重命名”一项,最后点击确定按钮。
- 09
接下来点击一下开发工具工具栏上的“设计模式”按钮,取消选中状态 。
- 10
然后按一下刚刚生成的按钮,这时就会发现原来的工作表名称已批量重命名了。
赞 (0)