大家好，今天跟大家分享如何通过录制宏批量制作个人成绩单。
应用案例在下面图1工作表中每个人的成绩上方都插入第一行中绿色底纹的科目名称，以便制作个人成绩单，参考效果见图2。
图1
图2
操作步骤1 选中A1单元格，在“开发工具”选项卡先单击“使用相对引用”按钮，再单击“录制宏”。
2 在打开的“录制宏”对话框中，我们可以修改默认的宏名以及快捷键，这里我们将“宏名”设为“个人成绩单”，快捷键设为“Ctrl Shift M”，单击“确定”按钮，就可以开始宏的录制了。
（说明：快捷键的作用是在宏录制好后，可以通过快捷键快速执行宏命令。）
3 在工作表中选中第一行，同时按ctrl c组合键进行复制。
4 选中第3行，单击鼠标右键，在弹出的菜单中选择“插入复制的单元格”。
5 单击“开发工具”选项卡下的“停止录制”按钮，停止宏的录制。
6 在“开发工具”选项卡单击“Visual Basic”按钮。
7 在打开的“Microsoft Visual Basic for Applications”窗口中，鼠标双击左侧列表中的“模块1”，即可在右侧看到我们刚刚录制好的宏“个人成绩单”。
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个人的成绩上方也批量添加好了科目名称。
本文由原创，欢迎关注留言，一起学习更多office办公技能！
,
