Copaar planilhas de Excel de acordo com modelo usando VBA

我需要一个电子表格“模型”被复制和重命名。 我试着用下面的代码：

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

但是，它将“model”电子表格复制为“model（2）”，然后将第一个表格重命名为“current”，而不是第二个表格。 我需要一个代码来复制工作表并重命名复制的工作表。 谁能帮忙？

Answer 1

引用新的数字表：

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