Copiar planilhas de Excel de acordo com modelo usando VBA

Question

我需要一个电子表格＆＃34;型号＆＃34;被复制并重命名。 我尝试使用以下代码：

 Dim WS1 As Worksheet
 Set WS1 = ThisWorkbook.Worksheets ("model")
 ws1.Copy ThisWorkbook.Sheets (Sheets.Count)
 ws1.Name = "current"

然后它复制＆＃34;模型＆＃34;电子表格为＆＃34;模型（2）＆＃34;然后重命名为＆＃34; current＆＃34;第一张而不是第二张。 我需要一个代码来复制工作表并重命名复制的工作表。 有人可以帮忙吗？

Answer 1

按编号参考新表格：

Dim WS1 As Worksheet
Set WS1 = ThisWorkbook.Worksheets ("model")
WS1.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "current"