工作中常常会遇到一个工作簿中有很多的工作表，如果要求改每个工作表名称的话将是一件非常耗时的事情，你需要一个一个点击去重命名，输入新名称，遇到这样的问题大家常常是不知所措。今天由我来给大家分享一种快速高效的批量命名工作表的方法。
具体操作步骤
第一步：新建工作表。打开需要重命名工作表名称的工作簿，在其所有工作表最前mai面新建一张空白空白工作表，将其命名为表格批量重命名。
第二步：查看VBA代码。 用鼠标右键单击“表格批量重命名”工作表名称，在弹出的菜单中选择“查看代码”，之后就会打开代码编辑器，也可直接按下组合键Alt+F11来打开代码编辑窗口。第三步：填写提取工作表名称代码和运行代码。在打开的VB代码编辑窗口中，选择插入的模块，把下面的代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。
Public Sub 获取各工作表的名称()
For i = 1 To Worksheets.Count
Sheets("工作表批量重命名s(i, 1).Value = Worksheets(i).Name
Next
End Sub第四步：提取工作表名称。运行代码后，就会发现工作表批量重命名工作表中会提取出所有工作表的名称（如下图）；
第五步：输入修改后的名称。在B列对应输入修改后的名称（如下图）；第六步：填写重命名代码和运行代码。打开VB代码编辑窗口，再一次选择插入新的模块，把“更改名称”代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。
Public Sub 更改名称()
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets("工作表批量重命名").Cells(i, 2).Value
Next
End Sub第七步，表格批量重命名。点击运行后机会发现已将工作表名称重名命名为B列名称（如下图）工作表批量重命名到此就重命名结束了，在我看来这种方法还是蛮实用的，有次我重命名300多张工作表，几分钟就搞定了，我们只需复制代码，稍微修改一下就可以达到重命名的效果，要不赶快去试一下吧！
如有不懂之处，欢迎留言讨论！
期待你的关注和转发分享，更多精彩内容在持续更新中.............
往期精彩文章：