VBA - Filter 函数

Filter 函数，它返回基于特定筛选条件的字符串数组的子集，该子集采用零为基准的数组。

语法

Filter(inputstrings,value[,include[,compare]]) 

参数说明

• Inputstrings − 必需参数。该参数对应于要搜索的字符串数组。

• Value − 必需参数。该参数对应于针对 inputstrings 参数搜索的字符串。

• Include − 可选参数。该参数的值为布尔值，它指示是否返回子字符串的包含或排除情况。

• Compare − 可选参数。该参数描述要使用哪种字符串比较方法。

  • 0 = vbBinaryCompare - 执行二进制比较

  • 1 = vbTextCompare - 执行文本比较

示例

添加按钮并添加以下函数。

Private Sub Constant_demo_Click()
   Dim a,b,c,d as Variant
   a = array("Red","Blue","Yellow")
   b = Filter(a,"B")
   c = Filter(a,"e")
   d = Filter(a,"Y")
  
   For each x in b
      msgbox("The Filter result 1: " & x)
   Next
  
   For each y in c
      msgbox("The Filter result 2: " & y)
   Next
  
   For each z in d
      msgbox("The Filter result 3: " & z)
   Next
End Sub

执行上述函数时，它会产生以下输出。

The Filter result 1: Blue
The Filter result 2: Red
The Filter result 2: Blue
The Filter result 2: Yellow
The Filter result 3: Yellow