EXCEL批量改表名

现在情况如下

现在工作表001，002，003，是员工编号
其对应的员工姓名为A，B，C

请问怎样可以做到工作表名自动批量更改为A，B，C呢？

实际数量远大于3个，手动修改是很麻烦的

谢谢大家了

如果你另外有一个编号与姓名对应的表格，就可采用VLOOKUP函数，这个函数在你原来的表格中以编号作为查找依据，找出与其对应的姓名。如果你不会操作的话，可以在线交流。

alt+f11 双击thisworkbook 复制粘贴下面代码 sub 按钮1_click() for i = 1 to worksheets.count sheets(i).name = "a141-32-" & i next end sub 然后点上面绿色播放小按钮即可！

录制一个宏，将以下代码替换宏里边的代码 For Each sht In ActiveWorkbook.Sheets With sht .Name = CStr(.Cells(1, 1).Value2) & .Name '假如名字在A1中 End With Next sht

一、使用Excel的拖放功能生成如下代码： Sheets("001").Name = "A" Sheets("002").Name = "B" Sheets("003").Name = "C" …… 二、然后在工作表标签（表名）那里单击鼠标右键，点查看代码，在代码窗口那里建立一个过程，代码如下： Sub 改表名() On error Resume Next End Sub 三、将上面已生成的代码复制到中间,如： Sub 改表名() On error Resume Next Sheets("001").Name = "A" Sheets("002").Name = "B" Sheets("003").Name = "C" …… End Sub 四、按下F5运行此过程就可以自动帮你将表改成你想要的名字了