Excel酷炫技能，批量修改工作表名称，让你的工作事半功倍

企事业单位部门众多，人员也众多。使用Microsoft Excel汇集资料任务繁重，收集到的Excel工作表资料名称也各不相同，如果不将其整理会对今后的工作造成不必要的麻烦。对Excel工作表名称单个进行修改的话，任务量异常繁重。如果想改变这个“悲惨”的现状，可以通过VBA代码来实现。首先需要通过VBA代码获取整个工作薄中各个工作表的名称，然后根据工作表名称进行修改，最后使用VBA代码将修改过的工作表批量重命名。

步骤一：新建模板并编辑VBA代码。

VBA代码编辑需要启动Visual Basic编辑器。首先左键单击菜单栏中的【开发工具】选项，启用开发工具操作流程请参考文章：超链接查看太麻烦，Excel怎么快速提取单元格内的超链接地址？左键单击代码功能区中的【Visual Basic】按钮，右键单击工程资源管理器窗口，将鼠标指针移动至创建选项，最后左键单击【模板】选项，新建模板1，并将下方模板1的代码粘贴到模板1的代码窗口中。按以上操作步骤再次操作一遍，新建模板2，并将下方模板2的代码粘贴到模板2的代码窗口中。两个模板的代码粘贴完毕后，关闭Visual Basic编辑器窗口。

模板1代码区域：

Sub 一键获取工作表名称()
Dim sht As Worksheet, k&
[A:A] = ""
[A1] = "目录"
j = 1
For Each sht In Worksheets
j = j + 1
Cells(j, 1) = sht.Name
Next
End Sub

模板2代码区域：

Sub 一键更改工作表名称()
Dim shtname$, sht As Worksheet, i&
On Error Resume Next
For i = 1 To Cells(Rows.Count, 1).End(3).Row
shtname = Cells(i, 1)
Set sht = Sheets(shtname)
If Err = 0 Then
Sheets(shtname).Name = Cells(i, 2)
Else
Err.Clear
End If
Next
End Sub

步骤二：建立按钮并指定宏。

首先左键单击菜单栏中的【开发工具】选项，然后左键单击控件功能区中的【插入】，左键单击【按钮（窗体控件）】后在工作表任意空白区域画出大小合适的按钮1，并在指定宏对话框中左键单击选中宏名称后，左键单击【确定】按钮指定宏。按以上操作步骤画出按钮2并指定宏。素材中按钮1用来获取工作表名称，按钮2用来更改工作表名称。可右键单击按钮更改按钮名称，方便记忆与使用。

步骤三：效果展示，酷炫的工作表批量重命名。

至此，Microsoft Excel一键获取并批量修改工作表名称操作流程已经介绍完毕。Office的VBA功能强大到难以想象的地步，几乎任何一个看似“难于上青天”的问题都可轻松解决，当然前提是需要动脑筋学习VBA编程。如果有编程基础的话上手当然很容易，即便没有编程基础的小伙伴也可自学成才，世上无难事只怕有心人。Microsoft Excel工作薄不属于消耗品，您可以在原有的编程基础上不断的完善，不断的改进，也许你会做到别人做不到的东西。有的用Excel作画，作品美轮美奂；有的用Excel做小游戏……世上无难事，只怕有心人，拒绝借口，日本80岁高龄老太太退休后自学编程成码农，别人能做成的事情，相信我们也可以。动动手指点击关注，每天掌握一些科技小技巧，相信也会为您的工作和生活带来便捷，何乐而不为呢？

实践是检验真理的唯一标准，求人不如求己，看完整篇文章后，点击收藏。找机会亲自实践一下，也许会发现“新的大陆”。感谢您们的支持和厚爱，读者是小编创作的源泉。

如有疑问或建议，请在下方留言告诉我们，我们会及时回复和改正，感谢您的支持。

标签：炫技,单击,代码,Excel,事半功倍,左键,按钮,模板
来源： https://blog.csdn.net/digitalkee/article/details/120306295