批量重命名excel工作表

（1）新建一个工作表，置于最前，在第一列输入 0 1 2 3 ... ，实现按第一列内容重命名工作表。
（2）按下ALT+F11，打开VBE窗口，单击插入——模块，复制下面代码，并运行
 
Sub 按A列数据修改表名称() 
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息 
Application.Calculation = xlCalculationManual     '手动重算 
    Dim i% 
For i = 1 To Sheets.Count         
Sheets(i).Name = Cells(i, 1).Text 
    Next 
On Error GoTo 0          '恢复正常的错误提示 
Application.Calculation = xlCalculationAutomatic  '自动重算 
End Sub

（3）删除第一个工作表。