Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 关于我们
  • 新闻动态
  • Excel资源
  • 招贤纳士

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中国 联系方式
电  话:400-855-3990
邮  编:528400
Email:support@zstm.com
网  址:www.excel-cn.com

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

Excel多条件自动筛选、高级筛选提取唯一值

数据在Excel表中的筛选,也就是根据定义的条件将需要的数据记录从数据清单中选择出来,同时Excel表只显示你选择的这一部分数据,而不是全部,主要是用来对数据进行整理和分析或数据的提取的。数据筛选相当于数据库中的“查询”(Select)命令(通过子命令Where定义条件)。(Excel中定义的数据筛选源区域也就是数据清单,是有数据库中的表的概念的,表头相当于字段,表头下的每一行就是记录。)

Excel中的数据筛选都需要定义筛选的条件,根据构造条件的方式不同分为自动筛选和高级筛选。自动筛选是通过对话框来构造单一条件,操作比较直观简单便捷。高级筛选是通过数据筛选源数据以外的单元格区域自定义条件,可以定义多个,比较适应多条件、复杂条件的情形。

Excel中的筛选,可以通过工作表选项卡区中的命令直接完成,也可以通过VBA代码完成。(其实也就是将整个筛选操作的过程录制成宏,再适当修改代码。)


1 多条件自动筛选

Sub Filter_MoreCriteria()

Dim Crit As Variant

Application.ScreenUpdating = False

With Worksheets(1)

If .FilterMode = True Then .ShowAllData

.Range("A1").AutoFilter Field:=1, Criteria1:="1243301", Operator:=xlOr, Criteria2:="1288178"

.Range("B1").AutoFilter Field:=2, Criteria1:="ORA"

End With

Application.ScreenUpdating = True

End Sub

e1.jpg


2 高级筛选提取唯一值

Sub 高级筛选提取唯一值()

Dim X As Integer

Columns(13).Clear

X = Range("A" & Cells.Rows.Count).End(xlUp).Row

Range("A1:A" & X).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("M1"), Unique:=True

End Sub

e2.jpg


3 代码要点

使用AutoFilter或AdvancedFilter方法完成自动筛选或高级筛选:

工作簿.单元格对象.AutoFilter ...

工作簿.单元格对象.AdvancedFilter ...

以上代码完成的如下命令的功能:

数据→筛选…

数据→高级筛选...

(如果不熟悉相关VBA代码,可以通过“录制宏”的方式先录得代码,再适当改动即可。


4 筛选的工作表选项卡区图标命令操作

4.1 自定义筛选

对某列定义筛选条件实现筛选;

4.2 高级筛选

4.2.1 建立条件区域(与需要筛选的数据清单分开);

4.2.2 可以将筛选结果复制到其它区域;

4.2.3 指定需要筛选的列表区域;

4.2.4 指定条件区域;


点击次数:  更新时间:2017-06-23 17:11:51  【打印此页】  【关闭】
上一条:合并某一列相邻区域的相同单元格及逆操作  下一条:EXCEL VBA代码刷新数据透视表
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2020 粤ICP备10043721号

广东省中山市西苑广场富贵阁 528400

QQ:4008553990 电话:0760-88315075

Excel交流网主要交流Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表以及Excel VBA,为网友提供一个最全的Excel交流网站

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn