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

Question

在一个工作簿中，总表中的A1到A10为序号BG001~BG010；总表后面是10个工作表（表1~表10），这10个工作表格式一样，只是里面部分单元格内容不同。都是在B3中分别显示BG001~BG010；现在我想在总表中输入好BG001~BG010后，能否自动填充到表1~表10？并且把表格名称分别改成BG001~BG010。
比如：总表A1到A10输入BG001~BG010
总表后是表1-表10
在表1中的B3需要输入BG001，表1名称相应改为“BG001”；
在表2中的B3需要输入BG002，表2名称相应改为“BG002”；
请教高手！！！本人是菜鸟

Answer 1

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

　　使用说明：

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

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

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

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

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

Answer 2

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

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

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

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

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

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

本回答被网友采纳

Answer 3

按下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行，但是，有的需要填充两列

本回答被提问者采纳

Answer 4

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