数据在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
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
3 代码要点
使用AutoFilter或AdvancedFilter方法完成自动筛选或高级筛选：
工作簿.单元格对象.AutoFilter ...
工作簿.单元格对象.AdvancedFilter ...
以上代码完成的如下命令的功能：
数据→筛选…
数据→高级筛选...
(如果不熟悉相关VBA代码，可以通过“录制宏”的方式先录得代码，再适当改动即可。
4 筛选的工作表选项卡区图标命令操作
4.1 自定义筛选
对某列定义筛选条件实现筛选；
4.2 高级筛选
4.2.1 建立条件区域（与需要筛选的数据清单分开）；
4.2.2 可以将筛选结果复制到其它区域；
4.2.3 指定需要筛选的列表区域；
4.2.4 指定条件区域；
