excel2016怎么将工作表一次性批量重命名

Question

如题所述

Answer 1

前面我们介绍过如何重命令工作表的方法，如果一次重命名几个工作表还是很方便的，但如果一次重命名多个工作表的话，就会感觉有些吃力了，那么有没有办法批量重命名工作表呢？下面就一起来看看操作方法吧。

首先打开需要编辑的Excel文档，然后点击新建工作表按钮，建一个新的工作表

在新建的工作表中A1输入标题，从A2开始输入工作表的新名称，依次向下输入即可。

输入完成后点击excel2016的“开发工具”菜单。

接下来点击工具栏上的“查看代码”按钮。

这进会自动打开VBE对话窗口，在窗口中找到“ThisWorkBooK”一项，然后右键点击该键，在弹出菜单中依次点击“插入/模块”菜单项。

接下来在打开的窗口中输入代码 Sub 重命名() Dim i For i = 2 To Sheets.Count Sheets(i).Name = Sheets(1).Cells(i, 1) Next End Sub

关闭VBE窗口后，点击开发工具上的“插入/按钮”菜单项。

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

接下来点击一下开发工具工具栏上的“设计模式”按钮，取消选中状态 。

然后按一下刚刚生成的按钮，这时就会发现原来的工作表名称已批量重命名了。