[已解决]vba循环语句，点击一次运行一次

842227873

想做工作表的复制，但名称要从"工作表1"，复制为"工作表2"....以此循环
Sub yiii()
Dim yuy As Worksheet
For x = 1 To 999
Sheets( "工作表" & x ).Copy after:=Sheets(Sheets.Count)
  Set yuy = ActiveSheet
   yuy.Name = "工作表" & x+1
  Next x
End Sub


求修改代码，能让我运行一次程序，仅多一个工作表就停止程序。再运行一次，再多一个工作表

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-7-22 22:01

Sub demo()
   Sheets("工作表1").Copy after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "工作表" & Sheets.Count
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   Sheets("工作表1").Copy after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "工作表" & Sheets.Count
End Sub

祝順心，南無阿彌陀佛！