1. 根据如图所示模板，新建多张以模板为基础的工作表，一共有8个学期，以“第X学期”表示。
2. 打开Visual Basic，新增模块和过程，称之为“模板建表”。
Sub 模板建表()
End Sub
3. 添加一个for循环，共循环8次，新建8张工作表。
Sub 模板建表()
Dim i As Integer
For i = 1 To 8
Next
End Sub
4. 添加新建工作表的代码。
Sub 模板建表()
Dim i As Integer
For i = 1 To 8
Sheet1.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("E3") = "第" & i & "学期"
Next
End Sub
1）Sheet1.Copy 复制模板
2）after:=Sheets(Sheets.Count) 放在最后一张表后面
3）Sheets(Sheets.Count).Range("E3") = "第" & i & "学期"，在新建表的E3单元格输入“第i学期”。
5. 执行以上代码后，即可新建复制模板的工作表。
6. 如果要同时把新建的工作表的名称修改，也可以加入以下代码：
Sub 模板建表()
Dim i As Integer
For i = 1 To 8
Sheet1.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("E3") = "第" & i & "学期"
Sheets(Sheets.Count).Name = "第" & i & "学期成绩表"
Next
End Sub
7. 再次执行新的过程后，得到如图所示的多张模板工作表。
