Question

使用宏，重命名Excel工作表，新工作表名称引用自表格。

11张工作表，原名为 sheet0,sheet1.....sheet10。新工作表名称（无规律）存储于sheet0 A1至A10单元格中。现需将sheet1至sheet10重命名。
本人不是学计算机的，完全不行啊。。。

Answer 1

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

Answer 2

一楼的稍有点小问题，现修改如下：

Sub 命名
Dim i
For i = 2 To 11
Sheets(i).name = Sheets(1).Cells(i-1, 1)
Next i
End Sub

方法如下：
ALT F11 插入-模块，然后将以上代码粘贴，运行以上宏，或者在工作中做个按钮。不懂的话再留言。另外需要将宏安全级别设为低。

追问

非常感谢。
那么请问跨工作表引用，比如='1981'!B50，我要将其中的工作表名称也作为变量使用，该怎么办？

非常感谢。
那么请问跨工作表引用，比如='1981'!B50，我要将其中的工作表名称也作为变量使用，该怎么办？

Answer 3

用宏命令,把sheet0放到最前边,不要有隐藏的工作表
Sub 在表1到10() '顺序命名
Dim i
For i = 2 To 11
Sheets(i).name = Sheets(1).Cells(i, 1)
Next i
End Sub

追问

非常感谢。
那么请问跨工作表引用，比如='1981'!B50，我要将其中的工作表名称也作为变量使用，该怎么办？

追答

Sheets(i).name = Sheets("1981").Cells(50, 2)