标签：炫技 单击 代码 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
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。