Ecel通过宏来处理批量复制操作.pdfVIP

一、 开发工具菜单 插入复选框 1.点击 Excel左上角的图标（如图一） ，在弹出的窗体内点击“ Excel 选项”会弹出“ Excel 选 项”窗体。 图一 2.在窗体内的“常用”选择项卡下，将“在功能区显示“开发工具”选项卡”选项勾中。点 击“确定”按钮 图二 3.在 Excel菜单栏处会显示出“开发工具”菜单 点击“开发工具——插入”会弹出一个控件选择框。 图三 在控件框内选择要插入控件，在 Excel表内画出即可。 4.修改 ActiveX 控件属性，在 Excel 内选中 ActiveX 控件 ，点击菜单内的“属性”会弹出相应 控件的“属性窗体” ，在窗体内可对控件的属性进行调整。 二、 VBA的使用 录制宏 1. 新建 sheet1 ，录入工资信息 2. 在 word 选项内添加开发工具菜单。 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 （将之前执行的几列删除除，不然会出现重复标题列） 打开宏页面，选中要宏，点击 执行 即可一次批量完成操作