办公：批量修改sheet名称

1，在已有工作簿中，在最后位置新增工作表（sheet）
2，将要改的sheet名称在新建工作表中第一列按顺序填充
3，在键盘上按住Alt+F11，打开VBA窗口
4，依次点击工具栏中的【插入】——【模块】
5，在模块窗口中输入以下代码

Sub 按A列数据修改表名称()
    On Error Resume Next '忽略错误继续执行VBA代码，避免出现错误消息
    Application.Calculation = xlCalculationAutomatic '手动重算
    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

6，然后点击菜单栏中的【运行】——【运行子过程/用户窗体】
7，代码运行成功后，就可以看到Excel表的sheet名称已经修改完成