excel工作表自动命名的问题 如何利用总表来自动重命名工作表名称？

　　对当前工作簿中的工作表进行批量重命名，支持修改表名称、在名称前后插入指定字符、从序列命名及顺序数字命名，可以根据需要选择重命名的表格。

　　使用说明：

　　1.命名方式选择“修改表名称”，需要输入新表名称，或者点击选择按钮选择单元格，以单元格中的内容为表名进行命名

　　2.命名方式选择“插入到表名前”/“插入到表名后”，将会在原表名称前/后插入指定字符

　　3.命名方式选择“从序列命名”，将会根据所选择的序列内容重命名工作表，如系统默认序列无法满足要求，可以通过“佑佐插件”→“排序工具”→“生成自定义序列”来添加新的序列

　　4.命名方式选择“顺序数字命名”，此时需要指定起始数字（默认为1），将会从起始数字开始以自然数顺序重命名工作表

　　5.在“选择需要重命名的工作表”中，有√标记的为将要重命名的工作表

1、一个新建的excel工作簿默认有三个工作表。

2、将鼠标移到sheet1标签上，双击鼠标左键，sheet1标签黑色背景显示，处于可以编辑状态。

3、在sheet1输入"示例"替换旧标签"sheet1"，回车，完成重命名。

4、将鼠标移到"示例"标签上，右击鼠标，出现如下对话框，点选"索引标签颜色"。

5、在次级菜单中，点选蓝色。

6、如下图，工作表"示例"标签已改为蓝色背景。

按下alt+F11
点插入→模块
双击模块粘贴下面的代码,然后按F5,点运行.就OK了
Sub rename()
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1)
Sheets(i).Cells(3, 2) = Cells(i, 1)
Next
End Sub

使用VBA解决……楼上正解……