在日常工作中,我们制作的excel工作簿常常会含有若干个工作表,默认的工作表名称分别为Sheet1,Sheet2……这些名称不太直观,看不出来表格的具体内容。我们可以给工作表重新命名,概括工作表中的内容,以便于使用。如果工作表不太多的话,可以用下面这些方法给工作表逐一重命名:
方法1:选择需要重命名的工作表标签,单击开始菜单中的“格式”选项,这时工作表标签变成可编辑状态,即可对工作表重新命名。
![2a0aff72ee4d05c577c976fa232cb0b3.png](https://i-blog.csdnimg.cn/blog_migrate/fab9e0b24334b2a89bb5aac09d6eb82b.jpeg)
菜单法重命名
方法2:右键单击需要重命名的工作表标签,选择“重命名”选项,对选中的工作表重新命名。
![df7890b48943bd77e4cd825bac04fb1e.png](https://i-blog.csdnimg.cn/blog_migrate/88472d8ca29a9c58e3be28d5d88e5a78.jpeg)
右键法重命名
方法3:双击工作表标签,工作表标签进入可编辑状态,直接对工作表重命名。
![af8222c121cdd7ed63219aacb53427f6.png](https://i-blog.csdnimg.cn/blog_migrate/11f32ba16c956fc537108dd539723cb0.jpeg)
双击左键重名名
上面三种方法都可以对工作表逐个重新命名,但是如果工作表比较多的话,用上面三种方法就都显得有些麻烦费力了,这时下面这两种方法则可以轻松实现对多个工作表批量重命名。
方法一:直接批量重命名
假设我现在要把默认的工作表名称“sheet1”~“sheetn”直接批量重命名为“1班成绩册”~“n班成绩册”。
第1步:按下组合键“Alt+F11”——>打开VBA窗口;
![41f917dc23b464fb62af3cdb3ca690fe.png](https://i-blog.csdnimg.cn/blog_migrate/a4f72ce4993fe4834c345d7bad02031d.jpeg)
Alt+F11
第2步:单击“插入”菜单——>选择下拉选项中的“模块”;
![f373241869b60320d04e714db1b7ca47.png](https://i-blog.csdnimg.cn/blog_migrate/c138d1fd5b7e5daa39e6b7307f3b44ae.jpeg)
插入模块
第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
![5d3be2aac9165a3867b06521bcb2331d.png](https://i-blog.csdnimg.cn/blog_migrate/964155d1746b4fdc6c954243eb3db624.jpeg)
复制粘贴代码并运行
运行结束可以看到工作表已经被批量重命名了,如下图。
![3bde5a5cd1592b0576dada57d74fa81e.png](https://i-blog.csdnimg.cn/blog_migrate/6b966786e681a81dd6522238577b0091.jpeg)
直接重命名
注意:工作表重新命的名字根据不同的内容要求,只需要修改代码行:Worksheets(i).Name = i &"班成绩册" 即可。
方法二:根据名称列表批量重命名。
假设有12个工作表,现在需要把sheet1到sheet12批量重命名为1月到12月入库单。
第1步:在工作表中输入重新命名的名称列表,如下图在工作表sheet1的A1:A12单元格内输入1月入库单、2月入库单~12月入库单;
![f5518561bc0bbf7d79bd10dd8f8d2c25.png](https://i-blog.csdnimg.cn/blog_migrate/c5df38afeccf05e7766f9f5f798588c7.jpeg)
名称列表
第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
![2b947c46abb7269e18b588eff40c3080.png](https://i-blog.csdnimg.cn/blog_migrate/9f6d639775b54be4991dde45c4dbf956.jpeg)
复制粘贴代码并运行
运行结束可以发现,工作表已经被批量重命名为我们在名称列表中输入的名称了,如下图。
![5dadb567419bd6229cb93d2880870821.png](https://i-blog.csdnimg.cn/blog_migrate/38a0416b2d902f622ed4ba8027ac04f5.jpeg)
按列表内容批量重命名