在日常工作中，我们制作的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

复制粘贴代码并运行

运行结束可以发现，工作表已经被批量重命名为我们在名称列表中输入的名称了，如下图。

按列表内容批量重命名