带代码的VBA复制表

Question

所以我有一个包含产品模板表的Excel工作簿。

我正在通过UserForm在主页面上创建新产品，这会创建一个新工作表，从模板工作表复制单元格并将它们粘贴到新工作表上，然后使用UserForm提供的信息填充其余部分。 / p>

我遇到的问题是我希望这些新创建的工作表中的每一个都包含Worksheet_Change的代码。我不知道如何创建新工作表，并为其提供当前在模板工作表中的必要代码。

非常感谢任何帮助！

Answer 1

不要将细胞复制到新表中。

相反，复制整张纸.........任何纸张代码都会随之复制。

修改＃1：

例如，如果工作表＆＃34;模板＆＃34;包含一些工作表代码，然后：

Sub marine()
    N = Sheets.Count
    Sheets("Template").Copy After:=Sheets(N)
End Sub

将复制该表，代码和所有