使用VBA创建新的工作表副本

Question

>我目前正在处理一个代码，其中我正在为使用命令按钮输入的每个"案例"创建一个新工作表。但是，正在创建的工作表是空白的，我希望它们复制我的工作簿中的另一个工作表(我们称之为"模板"(。有人知道如何做到这一点吗？我将感谢任何输入！

这是我到目前为止的代码(我也在工作表之间添加了超链接(：

financing = ws.Range("F2").Value
compName = ws.Range("F3").Value
fortnr = compName & "-" & financing
lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
ws.Cells(lastRow, "B") = financing
ws.Cells(lastRow, "C") = compName

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveWorkbook.Sheets(Worksheets.Count).Name = compName & "-" & financing
ActiveWorkbook.Sheets(compName & "-" & financing).Visible = xlSheetVisible
ActiveSheet.Hyperlinks.Add Anchor:=ws.Cells(lastRow, 1), Address:="", SubAddress:= _
"'" & fortnr & "'" & "!A1", TextToDisplay:="Check"                                  'Anchor: the place where the link will be
ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets("INPUT").Name & "!A1", TextToDisplay:="Back to Input-sheet"
End Sub

Answer 1

复制名为"模板"的整个工作表：

Sub Test()
Worksheets("Template").Copy Before:=Worksheets("Template")
End Sub

将在"模板">

左侧创建一个名为"模板 (2("的副本。或者使用After:=而不是Before:=将其放置在右侧。 省略参数时，它将复制到新工作簿。