如何复制一个WorkSheet到当前WorkBook WorkSheet.Copy

有时我们需要根据先前定义好的模板来创建一个新的WorkSheet,
我们可以使用以下方法来创建一个拷贝,然后移动到当前WorkBook的最后
并必名

ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
 Set sheet1 = Worksheets(Worksheets.Count)
 sheet1.Name = "Hello world"