发布网友 发布时间: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 & "此双引号内是后辍文本"
Next
End Sub
最后,点击那个三角形的按钮即可运行该代码。