excel利用VBA批量修改工作表名称
时间:2023-05-17 11:13:12
一、在原工作表名称后添加文字
例如工作簿中仅包含12个用数字“1-12”命名的工作表,现在要将每个工作表名称修改为“1月”、“2月”、……、“12月”,即在每个工作表名称后添加一个“月”字。
1.按快捷键Alt+F11,打开VBA编辑器,在右侧的代码窗口中输入下列代码:
Sub RenameWorksheets()
For i = 1 To Worksheets.Count
Worksheets(i).Name = Worksheets(i).Name & "月"
Next
End Sub
2.将光标定位在代码中间,按F5单击工具栏中的“运行”按钮执行代码即可。
二、修改原工作表名称
例如要将每个用数字命名的工作表名称改为“一月”、“二月”、……、“十二月”。
1.在工作表中输入修改后的工作表名称,例如在左侧第一个工作表的A列的A1:A12区域中输入“一月”至“十二月”。
2.在VBA编辑器的代码窗口中输入下列代码:
Sub RenameWorksheets1()
For i = 1 To Worksheets.Count
Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value
Next
End Sub
3.将光标定位在上述代码中间,按F5键或单击工具栏中的“运行”按钮执行代码。
运行上述代码前需注意工作表的排列顺序要与A列中的名称一一对应,且工作簿中不要包含隐藏的工作表,因为工作表的索引号是从左向右排列的,Worksheets(1) 指工作簿中最左边的第一个工作表。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win7怎么更改电脑的分辨率?
![](https://img.aspxhome.com/file/2023/1/a283118_0s.jpg)
Excel如何快速删除包含星号(*)的单元格?
![](https://img.aspxhome.com/file/2023/0/a156450_0s.jpg)
如何解决PPT定位不准的问题?
excel表格数据怎么快速统计各个地区分公司的参会人数?
![](https://img.aspxhome.com/file/2023/2/39952_0s.png)
Win8系统文件夹共享的设置方法
![](https://img.aspxhome.com/file/2023/3/a299232_0s.jpg)
如何在Mac上Keynote讲演中的幻灯片之间添加过渡?
![](https://img.aspxhome.com/file/2023/4/a206944_0s.jpeg)
WPS表格如何制作成绩条
如何在 Mac 上打开或关闭专注模式?
![](https://img.aspxhome.com/file/2023/6/a204176_0s.jpeg)
wps如何制作田字格?
![](https://img.aspxhome.com/file/2023/8/a169088_0s.gif)
WPS怎么把数字设置为电话号码格式
excel中画直线的教程
如何利用PPT绘制一张简易的中秋贺卡实例教程
![](https://img.aspxhome.com/file/2023/10/a352471_0s.jpg)
Win10系统下如何把指定文件夹锁定到任务栏上
![](https://img.aspxhome.com/file/2023/26/a227742_0s.jpg)
excel查询引用函数的用法步骤
如何在Mac电脑中获取最高权限删除顽固文件?
![](https://img.aspxhome.com/file/2023/0/a202810_0s.jpeg)
win10系统启动安全模式后黑屏怎么办?win10系统启动安全模式黑屏处理教程
![](https://img.aspxhome.com/file/2023/7/48037_0s.png)
Win11没有wifi选项怎么办 Win11任务栏没有wifi图标解决方法
![](https://img.aspxhome.com/file/2023/27/a235927_0s.jpg)
WPS如何在文字后面添加下划线?
![](https://img.aspxhome.com/file/2023/9/a164449_0s.jpg)
Win10预览版1909 KB4535996累积补丁今日更新 更新内容汇总
![](https://img.aspxhome.com/file/2023/28/a240995_0s.jpg)
让Win7系统开机自动连接ADSL 让电脑开机自动ADSL拨号的方法(图文教程)
![](https://img.aspxhome.com/file/2023/29/a258863_0s.jpg)