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

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

一、开发工具菜单插入复选框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()DimiFori=1To15'15是表示执行15次复制操作(要根据sheet表内容进行判断,例如我建了16行数据,去除第1列已有标题剩下15列需要添加标题列所以这里写15表明要执行15次)'宏4宏''ActiveCell.Rows(1:1).EntireRow.SelectSelection.CopyActiveCell.Offset(2,0).Rows(1:1).EntireRow.SelectSelection.InsertShift:=xlDownActiveCell.SelectNextEndSub13.保存关闭代码页面。14.在sheet内,选中标题列A1(将之前执行的几列删除除,不然会出现重复标题列)打开宏页面,选中要宏,点击执行即可一次批量完成操作

1 / 7
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功