需要使用宏，从这点可以看出宏的作用，新建一个宏：输入如下代码：
======代码开始（此行不要复制）=========
Sub rename()
Dim I
For I = 1 To Sheets.Count
Sheets(I).Name = Sheet1.Cells(I, 1).Value
Next I
End Sub
=====代码结束（此行不要复制）===========
说明：命名的列是在第一个sheet中的第一列，通过循环从第一个sheet开始取，其中cell方法的参数，第一个为行，第二个为列！望采纳！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024