Excel批量重命名工作表标签

一个工作簿文件中有N张工作表，现在需要重命名工作表标签，如果N是个位数那还好说，手动修改估计也就2分钟完事儿，如果N是30、50、100+，这体力活估计得干趴下了。

那有没有一种既简单又快捷的方法呢？

有

小王，你帮我把工作簿中所有的工作表标签重命名成……

说完，老板就回家了，而小王还在埋头苦干，虽然是埋头苦干，但效率低下。其实我们可以让Excel代替这些有规律的重复工作，只需几行VBA代码，点点鼠标就能轻松搞定。

以图中工作表为例，需要将“总表”重命名为“目录”，将Sheet1~ Sheet6重命名为：1月~6月。

1 VBA代码批量重命名工作表标签

首先在第一张工作表的A列准备好需要重命名的新的标签名称，然后按<alt+F11>进入Visual Basic编辑器（或者单击【开发工具】-Visual Basic编辑器），单击【插入】-【模块】，在插入的模块中输入以下代码：

Sub Excel批量重命名工作表标签() Dim i As Byte '定义变量 i = 1 Do While Worksheets(1).Cells(i, 1) <> '' '判断第一张工作表A列不等于空 Worksheets(i).Name = Worksheets(1).Cells(i, 1) '将第一张工作表A列的内容依次用于重命名工作表标签 i = i + 1 '变量循环加1 LoopEnd Sub


接下来回到工作表中，单击【开发工具】-【插入】，在表单控件中单击按钮，在Excel中鼠标拖曳一个矩形，在弹出的指定宏对话框中选择“Excel批量重命名工作表标签”，单击【确定】。

这样就可以把VBA代码关联到这个按钮，修改按钮上显示的内容，最后单击按钮运行代码，瞬间完成Excel批量重命名工作表标签。

注意：有VBA代码的工作簿保存时需要选择xlsm格式，否则辛辛苦苦写的代码就丢失了。

2 易用宝批量重命名工作表标签

免费插件，功能强大，易用宝下载 http://yyb.

使用方法请参考帮助中心 http://yyb./features