快速给多个工作表批量重命名,拿走不谢!

  • A+
所属分类:excel

工作中常常会遇到一个工作簿中有很多的工作表,如果要求改每个工作表名称的话将是一件非常耗时的事情,你需要一个一个点击去重命名,输入新名称,遇到这样的问题大家常常是不知所措。今天由我来给大家分享一种快速高效的批量命名工作表的方法。

具体操作步骤

第一步:新建工作表。打开需要重命名工作表名称的工作簿,在其所有工作表最前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多张工作表,几分钟就搞定了,我们只需复制代码,稍微修改一下就可以达到重命名的效果,要不赶快去试一下吧!

接下来还会分享更多办公技巧,期待你的关注和转发分享,更多精彩内容在持续更新中.............

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: