示范图片
上边的示范图片，是已经执行过代码后的，工作表名都改好了。
下面是操作步骤：
1、点击顶部的“开发工具”
2、点击打开VB编辑器
3、在画蓝色框区域内的任意一项上，点右键---插入模块
4、点击模块
5、在模块右侧粘贴代码
6、点击画圆圈的那个按钮执行代码命令。
为方便你复制，代码如下：
Sub 更改表名()
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Evaluate("TEXT(DATE(2020,1,0)+" & i & ",""m月d日"")")
Next
End Sub
Excel怎样批量工作表改名
内容全部来源于网络收集，如有侵权，请联系网站删除！