EXCEL批量改表名

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

一、使用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运行此过程就可以自动帮你将表改成你想要的名字了

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

用宏程序