excel录制宏提取多个工作表数据（通过录制宏批量制作个人成绩单）

大家好，今天跟大家分享如何通过录制宏批量制作个人成绩单。

在下面图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办公技能！#职场技能##职场加油站##office办公技能#