Filter 函数

返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集。

Filter(InputStrings, Value[, Include[, Compare]]

)

参数

InputStrings

必选项。一维数组，要在其中搜索字符串。

Value

必选项。要搜索的字符串。

Include

可选项。Boolean 值，指定返回的子字符串是否包含

Value。如果

Include 为

True，

Filter 将返回包含子字符串

Value 的数组子集。如果

Include 为

False，

Filter 将返回不包含子字符串

Value 的数组子集。

Compare

可选项。数字值指出使用的比较字符串 类型.请参阅值设置部分.

设置

Compare 参数可以有以下值：

常数值描述

vbBinaryCompare	0	执行二进制比较。
vbTextCompare	1	执行文本比较。

说明

如果在

InputStrings 中没有找到与

Value 匹配的值，

Filter 将返回空数组。如果

InputStrings 为

Null 或者不是一维数组，则会发生错误。

由

Filter 函数返回的数组仅包含足以包含匹配项数目的元素。

下面例子利用

Filter 函数返回包含搜索条件 "Mon" 的数组:

Dim MyIndexDim MyArray (3)MyArray(0) = "Sunday"MyArray(1) = "Monday"MyArray(2) = "Tuesday"MyIndex =

Filter(MyArray

, "Mon"

) 'MyIndex(0) 包含 "Monday"。