excel工作表名递增

来源：百度知道 编辑：UC知道 时间：2024/05/14 13:45:22
在同一个工作薄中复制工作表如何工作表名递增？
如：表1名为：6-10 则复制的工作表名为：6-11
请该如何实现？谢谢
在线等
shuhua0715
请问一下。这个应该写在哪里?

Sub xx()
For i = 1 To Worksheets.Count
Sheets(i).Name = "6-" & i + 9
Next
End Sub

把代码写到模块里，不过楼上的代码是进行递增命名的，前提是先自己复制工作表，然后运行它，它会帮你重新递增命名。也可以修改一下代码，让程序自动的添加工作表，并且自动命名。