VBA复制表和重命名错误

Question

我有一段代码，但我不知道它到底错在哪里。我有一个宏，可以将工作表复制一定次数并将其命名为“工作表”+数字。

 '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

当我运行此命令时，它仅将工作表复制两次。一份名为“Sheet2”(应该如此)，但一份名为“Sheet (2)”，并且出现该名称已被占用的错误。我真的不明白它哪里出了问题，或者为什么它只起作用了。

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