第二章 数组
2.4 Filter函数
Filter函数功能与autofilter函数类似，它对一个一维数组进行筛选，返回一个从0开始的数组。
Filter函数语法：
Filter(sourcearray,match,[include,[compare]])
Filter函数的4个参数，前两个为必选，后两个为可选。
sourcearray：待筛选的一维数组
match：要筛选的字符串
include：true包含（默认），false不包含，对应Excel筛选“文本筛选”里的包含和不包含
compare：0 区分大小写（默认），1 不区分大小写
例句：
Sub tt()
arr = Array('A', 'AB', 'CDE', 'AC', 'ab', 'ec')
brr = Filter(arr, 'A')
'从arr数组里筛选出包含“A”的数组，筛选出“A”、“AB”、“AC”
crr = Filter(arr, 'A', False)
'从arr数组里筛选出不包含“A”的数组，筛选出“CDE”、“ab”、“ec”
drr = Filter(arr, 'A', , 1)
'从arr数组里筛选出包含“A”的数组，不区分大小写，筛选出“A”、“AB”、“AC”、“ab”
End Sub
筛选结果如下图所示：
需要注意的是，Filter函数只能进行模糊筛选，不能进行精确匹配。在使用过程中，有可能会筛选出自己不需要的数据。所以使用前，先看一下源数据的构成，选出一个更准确的要筛选的字符串。
小程序：从下表中找出B列比A列多的数据，复制到C列。
101 | 100 |
105 | 101 |
108 | 105 |
111 | 106 |
130 | 108 |
155 | 110 |
156 | 111 |
166 | 126 |
177 | 130 |
189 | 137 |
199 | 144 |
201 | 151 |
211 | 155 |
156 | |
160 | |
166 | |
173 | |
177 | |
182 | |
189 | |
190 | |
197 | |
199 | |
200 | |
201 | |
208 | |
211 | |
215 |
Sub 找不同()
arr = Application.Transpose(Range('a1:a13'))
brr = Application.Transpose(Range('b1:b28'))
For i = 1 To UBound(arr)
brr = Filter(brr, arr(i), False)
Next
Range('c1').resize(UBound(brr) + 1, 1) = Application.Transpose(brr)
End Sub
把A列数据转换后生成一个一维数组arr,把B列数据转换后生成一个一维数组brr,然后对brr数组进行筛选，筛选出不包含arr数组数值的，然后再赋值给brr数组。
需要注意的是，这个小程序里的brr数组，生成的时候它的下标是从1开始的，用Filter函数筛选后变成了从0开始了，所以粘贴时行数要用UBound(brr) + 1。
执行后的结果是这样的：
101 | 100 | 100 |
105 | 101 | 106 |
108 | 105 | 110 |
111 | 106 | 126 |
130 | 108 | 137 |
155 | 110 | 144 |
156 | 111 | 151 |
166 | 126 | 160 |
177 | 130 | 173 |
189 | 137 | 182 |
199 | 144 | 190 |
201 | 151 | 197 |
211 | 155 | 200 |
156 | 208 | |
160 | 215 | |
166 | ||
173 | ||
177 | ||
182 | ||
189 | ||
190 | ||
197 | ||
199 | ||
200 | ||
201 | ||
208 | ||
211 | ||
215 |
Filter函数还可以与Split与Join语句相结合，对一片区域进行筛选操作。把一行数据用Join语句连接成一个字符串赋值给数组的一个元素，用Filter筛选后，再用Split语句把数据拆分开。比如要对下面区域进行筛选：
卡片号 | 资产名称 | 建卡 | 原值 | 净值 |
0000793398 | 空调 | 2007-12-31 | 498720.00 | 14961.60 |
0000793400 | 台式电脑 | 2007-12-31 | 35670.00 | 1070.10 |
0001218983 | 音响设备 | 2007-12-31 | 12420.00 | 372.60 |
0001443995 | 音响设备 | 2008-06-11 | 6800.00 | 204.00 |
0001443996 | 音响设备 | 2008-06-11 | 6800.00 | 204.00 |
0001443997 | 音响设备 | 2008-06-11 | 6800.00 | 204.00 |
0003257991 | 台式微机 | 2010-12-29 | 6100.00 | 183.00 |
0003257992 | 台式微机 | 2010-12-29 | 6100.00 | 183.00 |
0003444159 | 电视机 | 2011-07-07 | 15600.00 | 468.00 |
0004715737 | 空调 | 2012-09-11 | 5700.00 | 171.00 |
0004715738 | 空调 | 2012-09-11 | 5700.00 | 171.00 |
0004966154 | 监控设备 | 2012-12-05 | 8000.00 | 240.00 |
0004966420 | 金库门 | 2012-12-05 | 76000.00 | 2280.00 |
0005925757 | 笔记本式微机 | 2012-12-30 | 5700.00 | 171.00 |
0006065400 | 监控设备 | 2012-12-30 | 24250.00 | 727.50 |
Sub filter数组筛选()
Dim arr()
For Each ss In Range('a2', [a2].End(xlDown))
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(ss.resize(1, 5))), '/')
Next
End Sub
把ss.resize(1, 5)区域，也就是一行数据，两次转换后用Join函数连接成一个字符串，再赋值给arr(n)，这样循环下来，就生成了一个一维数组，接下来就可以用Filter函数进行筛选啦！
brr = Filter(arr, '筛选字段')，比如可以让用户录入一个数值，用数值来筛选符合条件的内容。
筛选出来的结果用Split函数再把它拆分开来：
ReDim crr(1 To UBound(brr) + 1)
For Each x In brr
k = k + 1
crr(k) = Split(x, '/')
Next
拆分后的crr数组是一个嵌套数组，用Transpose函数进行两次转换就可以变成一个正常的二维数组，就会得到你想要的筛选结果了。
联系客服
