Question

我有一段代码，我不知道它到底出了什么问题。我有这个宏复制一张纸一定次数并命名为＃34; Sheet＆＃34; +数字。

 'copies over template to amount of items
    For numtimes = 2 To LastRow
    ActiveWorkbook.Sheets("sheet").Copy _
    After:=ActiveWorkbook.Sheets("Sheet")
    'test voor name copy
    ActiveSheet.Name = "Sheet" & i
    Next

当我运行它时，它只复制表两次。一个名为＆＃34; Sheet2＆＃34;（应该如此），但一个名为＆＃34; Sheet（2）＆＃34;，以及该名称已被采用的错误。我真的不知道它出了什么问题，或者为什么它一半有效。

Answer 1

您似乎没有增加i？

也许你可以使用numtimes？

For numtimes = 2 To LastRow
   ActiveWorkbook.Sheets("sheet").Copy _
   After:=ActiveWorkbook.Sheets("Sheet")
   'test voor name copy
   ActiveSheet.Name = "Sheet" & numtimes 
Next

VBA副本表并重命名错误

1 个答案: