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

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

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

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

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

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