如何在VBA中生成用于FILTER函数的布尔筛选数组？

方法1：直接用Evaluate调用工作表数组逻辑 #

这是最贴近Excel工作表公式逻辑的方式，直接通过Evaluate执行工作表中的数组判断语句，生成布尔数组：

Sub GetBooleanArray()
    Dim boolArray As Variant
    ' 生成A1:A10区域等于"test"的布尔数组
    boolArray = Evaluate("A1:A10=""test""")
    
    ' 示例：用布尔数组筛选对应值
    Dim filteredValues As Variant
    filteredValues = Application.Index(Range("A1:A10"), Application.Match(True, boolArray, 0))
End Sub

Evaluate返回的是和工作表公式=A1:A10="test"完全一致的二维布尔数组，无需手动循环遍历。

方法2：基于内存数组生成布尔数组 #

如果数据已经读入内存数组（避免重复访问工作表），可以先将数组转换为Evaluate可识别的格式，再生成布尔数组：

Sub InMemoryBooleanCheck()
    Dim dataArray As Variant
    dataArray = Range("A1:A10").Value ' 将单元格数据读入内存数组
    
    ' 把二维数组转为逗号分隔的字符串
    Dim dataString As String
    dataString = "{""" & Join(Application.Transpose(dataArray), """,""") & """}"
    
    ' 生成布尔数组
    Dim boolArray As Variant
    boolArray = Evaluate(dataString & "=""test""")
End Sub

注意事项 #

• Evaluate返回的是二维数组（即使原区域是单列），后续使用时需注意数组维度；
• 如果需要一维布尔数组，可以用Application.Transpose转换：boolArray = Application.Transpose(Evaluate("A1:A10=""test"""))

内容的提问来源于stack exchange，提问作者ImKnownAsG