发布网友 发布时间:2022-04-23 07:48
共1个回答
热心网友 时间:2022-07-20 10:29
方法有两种:
把EXCEL文件另存为网页文件。
双击打开网页文件,查找源代码中的工作表名,替换为新的工作表名,保存。用EXCEL打开这个被更改过的网页文件,工作表名已经被批量更改,另存回EXCEL文件即可。
通过宏命令。代码如下:
Sub
rename()
Dim
i
As
Integer
i
=
1
For
Each
sht
In
ActiveWorkbook.Sheets
sht.Name
=
i
i
=
i
+
1
Next
sht
End
Sub