EXCEL中如何批量重命名工作表名称-Excel教程

作为一名报表制作者或者我们工作中制作大量工作表的小伙伴，经常会遇到大量工作表需要重命名，一个一个修改实在是太麻烦，尤其量大的情况下，那么有没有批量处理的办法呢？答案肯定是有的；只有想不到没有做不到。

前期准备工作（包括相关工具或所使用的原料等）

电脑一台OFFICE-EXCEl2007及以上版本（2003略有差异）

详细的操作方法或具体步骤

首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。

新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。

进入VBE对话框后，右击thisworkbook,选择插入，然后选择模块。

双击模块，进入代码输入框输入一下代码

Sub 重命名()

Dim i&

For i=2 To Sheets.Count

Sheets(i).Name=Sheets(1).Cells(i, 1)

Next

Sub

也可以记住，下次直接粘贴即可，代码通用。

然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）

在空白处，拖动鼠标，画出一个大小适合的按钮，然后右击选择制定宏。

选择重命名，然后点击确定。

最后点击按钮，看看效果吧，已经全部重命名。OK！小伙伴们，你们学会了吗？

注意事项

新增动画演示，效果更直观。你的鼓励是我最大的功力！如果对有有帮助，请点赞、关注、评论、投票！谢谢经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。