excel多个工作表名称统一加后缀,怎么操作啊。谢谢。

发布网友发布时间：2022-04-30 22:19

共2个回答

热心网友时间：2022-06-19 12:28

代码如下：
Sub changename()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Name = sht.Name & “你想要的后缀”
Next
End Sub

其实就是你原来的代码稍作修改就可以了。
把你想要的后缀加在sht.Name的后面了。
两个之间调换一下位置即可。

热心网友时间：2022-06-19 12:28

点击开发工具---打开VB编辑器---插入模块---在右侧粘贴代码。

代码如下：

Sub changename()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Name = sht.Name & "此双引号内是后辍文本"

End Sub

最后，点击那个三角形的按钮即可运行该代码。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com