Excel通过宏来处理批量复制操作.docxVIP

开发工具菜单 插入复选框 Excel 选1.点击 Excel左上角的图标（如图一） ，在弹出的窗体内点击“ Excel Excel 选 图一2. 图一 2.在窗体内的“常用”选择项卡下，将“在功能区显示“开发工具”选项卡”选项勾中。点 击“确定”按钮 图3.在 Excel 菜单栏处会显示出“开发工具”菜单 点击“开发工具——插入”会弹出一个控件选择框。在控件框内选择要插入控件，在 图 3.在 Excel 菜单栏处会显示出“开发工具”菜单 点击“开发工具——插入”会弹出一个控件选择框。 在控件框内选择要插入控件，在 图三 Excel表内画出即可。 修改 ActiveX 控件属性，在 Excel 内选中 ActiveX 控件 ，点击菜单内的“属性”会弹出相应 控件的“属性窗体” ，在窗体内可对控件的属性进行调整。 VBA的使用录制宏1. 新建 sheet1，录入工资信息2. 在 VBA的使用 录制宏 1. 新建 sheet1，录入工资信息 2. 在 word 选项内添加开发工具菜单。 3. 选中标题列 A1，点击 开发工具——录制宏 4. 在弹出的录制新宏内 维护宏名称、执行快捷键操作 注意，快捷键只能是 Ctrl + 英文字母 11. 11. 打开宏查看页面，选中宏，点击编辑打开 VBA代码页面 录制新宏维护好，确定保存后。 在执行操作前，要先点击 开发工具—— 使用相对引用。显示如下图所示的选中 浅黄 色背景 选中 A1 行复制，再选中 A3 行，执行 复制单元格操作 选中 A3 单元格，点击 开发工具——停步录制 完成录制宏操作。 点击 开发工具——宏，打开宏查看页面，可以查看到刚录制完成的宏“宏 4)” 9. 选中录制的宏，点击 执行，在下面列自动添加 1 行标题栏 10. 批量录制宏操作  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（将之前执行的几列删除除，不然会出现重复标题列） 打开宏页面，选中要宏，点击 执行 即可一次批量完成操作