在日常工作中，我们制作的excel工作簿常常会含有若干个工作表，默认的工作表名称分别为Sheet1,Sheet2……这些名称不太直观，看不出来表格的具体内容。我们可以给工作表重新命名，概括工作表中的内容，以便于使用。如果工作表不太多的话，可以用下面这些方法给工作表逐一重命名：
方法1：选择需要重命名的工作表标签，单击开始菜单中的“格式”选项，这时工作表标签变成可编辑状态，即可对工作表重新命名。
菜单法重命名
方法2：右键单击需要重命名的工作表标签，选择“重命名”选项，对选中的工作表重新命名。
右键法重命名
方法3：双击工作表标签，工作表标签进入可编辑状态，直接对工作表重命名。
双击左键重名名
上面三种方法都可以对工作表逐个重新命名，但是如果工作表比较多的话，用上面三种方法就都显得有些麻烦费力了，这时下面这两种方法则可以轻松实现对多个工作表批量重命名。
方法一：直接批量重命名
假设我现在要把默认的工作表名称“sheet1”~“sheetn”直接批量重命名为“1班成绩册”~“n班成绩册”。
第1步：按下组合键“Alt+F11”——>打开VBA窗口；
Alt+F11
第2步：单击“插入”菜单——>选择下拉选项中的“模块”；
插入模块
第3步：打开代码输入窗口，在代码编辑区复制粘贴下面代码——>然后单击“运行”菜单中的“运行子程序/用户窗体”运行。
Sub 新工作表名()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets(i).Name = i &"班成绩册"
Next i
Application.ScreenUpdating = True
End Sub
复制粘贴代码并运行
运行结束可以看到工作表已经被批量重命名了，如下图。
直接重命名
注意：工作表重新命的名字根据不同的内容要求，只需要修改代码行：Worksheets(i).Name = i &"班成绩册" 即可。
方法二：根据名称列表批量重命名。
假设有12个工作表，现在需要把sheet1到sheet12批量重命名为1月到12月入库单。
第1步：在工作表中输入重新命名的名称列表，如下图在工作表sheet1的A1:A12单元格内输入1月入库单、2月入库单~12月入库单；
名称列表
第2步~第3步同方法一的前两步，即打开VBA，插入模块，打开代码输入窗口；
第4步：复制粘贴下面代码到代码输入窗口，然后运行；
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
复制粘贴代码并运行
运行结束可以发现，工作表已经被批量重命名为我们在名称列表中输入的名称了，如下图。
按列表内容批量重命名
