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:=将其放在右侧。省略该参数时，它将复制到新的工作簿中。

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

1 个答案: