1.首先确保有模版工作簿保存于本地电脑中，存放目录为："C:\Users\pc\Documents\自定义 Office 模板\每周家务安排表1.xltm"，sheet1为模版工作表

2.新建一个sub过程，代码如下：

Dim wb As Workbook, wp As Worksheet

'首先打开这个模版工作表

Set wb = Workbooks.Open("C:\Users\pc\Documents\自定义 Office 模板\每周家务安排表1.xltm")

Set wp = ActiveWorkbook.Worksheets(1)

'循环4次，新建四张带模版的工作表

For i = 1 To 4

wp.Copy after:=Worksheets(Worksheets.Count)

Next i

wb.SaveAs "C:\Users\pc\Desktop\实例\1.xlsm", FileFormat:=52

wb.Close

End sub