Home » 文章 » 电脑技术 » Excel » Excel技巧:录制高级筛选

Excel技巧:录制高级筛选

如何能实现让海量数据表中的符合条件的数据记录组成一个新表?
Excel中如何在新表中显示满足特定条件的批量数据?
Excle:如何提取符合条件的记录自动建立到新表?
Excel表筛选满足条件的那一行所有数据至新表?
如何将Excel中满足查询条件的所有记录输出单独做成一个新表?
如何将一张EXCEL表格中同时符合2个条件的数据导入到另一张表中?
如何将EXCEL表中某列满足某条件时,将该内容复制到新表中?
在Excel中,怎么查找符合条件的数据并生成在另外一个Excel表中?
我要将表格一内的符合条件的内容复制到表格2怎么弄

                                                                                                                                                           

 

 

百度知道上,常看到类似上边列举的问题。类似的问题,除用函数解决外,在此展示通过录制高级筛选,来解决的方法。
现举例Sheet1中,A4:C8为数据区域,A1:A2为条件区域。如何将符合条件班级为1班的数据生成到新表Sheet2中。

p15

第一步:录制宏。在菜单栏选择工具-宏-录制新宏,点确定,开始录制新宏。
在菜单栏选择数据-筛选-高级筛选。 进入高级筛选选项卡,方式选“将筛选结果复制到其他位置”,列表区域选择数据区域A4:C8,条件区域选择设定的条件位置A1:A2,复制到就在当前表点一个空白的位置如A10,然后点确定。

p16

在停止录制工具栏点停止录制。这样宏就录制完了。p17

此时,效果如下图:

p18

第二步:修改宏。在菜单栏选择工具-宏-宏,或者按ALT+F8组合键。选择刚刚我们录制的宏,点编辑。

p19

来到Visual Basic编辑器,我们看到刚刚录制的宏的代码。
Range(“A4:C8”).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(“A1:A2”), CopyToRange:=Range(“A10”), Unique:=False

p20

里边的“CopyToRange:=Range(“A10”)”,就是指复制的目标单元格,刚刚我们选了A10。我们现在将“Range(“A10”)”,改为“Sheet2.Range(“A1”)”。这样,数据就会复制到新表Sheet2上了。

p21

第三步:做执行按钮。宏写好了,我们现在需做个按钮,方便执行宏。关闭Visual Basic编辑器。在Excel菜单栏选插入-图片-自选图形。我们点一个矩形。

p22

然后在C1位置拉出个矩形来。

p23

选定该矩形,右击,选“指定宏”。

p24

然后选我们刚刚修改的宏,点确定。

p25

                     这样,我们宏就做好了。
                     现在,我们只需点击矩形,Sheet2就会生成符合条件的新表。
p26
 第四步:完善宏。右击矩形,再左击矩形,输入状态下输入“点击”。这样矩形上就有文字了。
p28
                     然后我们进入Visual Basic编辑器,加上代码:Sheet2.Cells.Clear。意思是当我们执行宏时,先把Sheet2表所有单元格的内容清除。
p29
                     我们试一下把条件改为“2班”,点矩形“点击”。Sheet2表里原来1班的数据没了,生成符合条件的新表了。
p30
                     如果我们要把分数在60分以上80分以下的数据生成到Sheet2表,又怎样呢。先修改下条件:
p31
                     然后修改代码里的条件区域代码(根据条件的个数而定,同样条件个数不需要修改了):
p32
                   这样我们就可以用宏了。
p33
微信 OR 支付宝 扫描二维码
为博主 打个赏
pay_weixinpay_zhifubao
金额随意 快来“打”我呀~

Leave a Reply

Your email address will not be published. Required fields are marked *

*