WPS表格如何将多个工作表修改成不同的名字，如sheet1、2改成1月1、1月2？

Question

如题所述

Answer 1

示范图片

上边的示范图片，是已经执行过代码后的，工作表名都改好了。

下面是操作步骤：

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

Answer 2

Excel怎样批量工作表改名