Excel通过宏来处理批量复制操作VIP专享

一、 开发工具菜单 插入复选框 1.点击Ex cel 左上角的图标（如图一），在弹出的窗体内点击“Ex cel 选项”会弹出“Ex cel 选项”窗体。 图一 2.在窗体内的“常用”选择项卡下，将“在功能区显示“开发工具”选项卡”选项勾中。点击“确定”按钮 图二 3.在Excel 菜单栏处会显示出“开发工具”菜单 点击“开发工具——插入”会弹出一个控件选择框。 图三 在控件框内选择要插入控件，在Excel 表内画出即可。 4.修改 ActiveX 控件属性，在Excel 内选中 ActiveX 控件 ，点击菜单内的“属性”会弹出相应控件的“属性窗体”，在窗体内可对控件的属性进行调整。 二、 VBA 的使用 录制宏 1. 新建sheet1，录入工资信息 2. 在w ord 选项内添加开发工具菜单。 3. 选中标题列A1，点击 开发工具——录制宏 4. 在弹出的录制新宏内 维护宏名称、执行快捷键操作 注意，快捷键只能是 Ctrl + 英文字母 5. 录制新宏维护好，确定保存后。 6. 在执行操作前，要先点击 开发工具—— 使用相对引用。显示如下图所示的选中 浅黄色背景 7. 选中 A1 行复制，再选中 A3 行，执行 复制单元格操作 选中 A3 单元格，点击 开发工具——停步录制 完成录制宏操作。 8. 点击 开发工具——宏，打开宏查看页面，可以查看到刚录制完成的宏“宏4）” 9. 选中录制的宏，点击 执行，在下面列自动添加 1 行标题栏 10. 批量录制宏操作 11. 打开宏查看页面，选中宏，点击编辑打开 VBA 代码页面 12. 在VBA 代码编辑页面录入批量复制代码保存（下面代码红色标识） Sub 宏 4() Dim i For i = 1 To 15 '15 是表示执行 15 次复制操作（要根据 sheet 表内容进行判断，例如我建了 16 行数据，去除第 1 列已有标题剩下 15 列需要添加标题列所以这里写 15 表明要执行 15 次） ' 宏 4 宏 ' ' 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 13. 保存关闭代码页面。 14. 在 sheet 内，选中标题列 A1（将之前执行的几列删除除，不然会出现重复标题列） 打开宏页面，选中要宏，点击 执行 即可一次批量完成操作