8 对宏代码进行如下修改：
Sub 个人成绩单()
'
' 个人成绩单 宏
'
' 快捷键: Ctrl Shift M
'
For i = 1 To 5
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
Next
End Sub
代码说明：代码中新增的内容“For i = 1 To 5”和“Next”代表将前面录制好的宏重复5次（因为还剩下5个人的成绩上方需要复制插入科目名称）。
9 单击窗口上方工具栏中方向向右的绿色三角符号（即运行子过程/用户窗体按钮），在弹出的“宏”对话框中单击“运行”按钮，即可运行修改后的宏代码。
10 返回工作表，可见剩余5个人的成绩上方也批量添加好了科目名称。
