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

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

对当前工作簿中的工作表进行批量重命名，支持修改表名称、在名称前后插入指定字符、从序列命名及顺序数字命名，可以根据需要选择重命名的表格。
　　使用说明：
　　1.命名方式选择“修改表名称”，需要输入新表名称，或者点击选择按钮选择单元格，以单元格中的内容为表名进行命名
　　2.命名方式选择“插入到表名前”/“插入到表名后”，将会在原表名称前/后插入指定字符
　　3.命名方式选择“从序列命名”，将会根据所选择的序列内容重命名工作表，如系统默认序列无法满足要求，可以通过“佑佐插件”→“排序工具”→“生成自定义序列”来添加新的序列
　　4.命名方式选择“顺序数字命名”，此时需要指定起始数字（默认为1），将会从起始数字开始以自然数顺序重命名工作表
　　5.在“选择需要重命名的工作表”中，有√标记的为将要重命名的工作表

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

按下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追问还想请教下：我需要把总表内容按顺序在表1~表10中固定区域填充。这么实现呢？
如图：
注意：表1表2中，填充的位置都只有3行，但是，有的需要填充两列