VBA中使用命名区域/数组对表格执行AutoFilter筛选无结果

从单元格区域直接读取Value属性得到的是二维数组（结构为(行索引, 列索引)），但AutoFilter方法搭配xlFilterValues运算符时，要求Criteria1参数必须传入一维数组。参数结构不匹配时筛选器无法识别任何有效条件，就会隐藏所有非表头行。

Sub FilterRangeCriteria()
    Dim vCrit As Variant
    Dim rngCrit As Range
    Dim oneDimCrit() As String
    Dim i As Long, arrIdx As Long
    
    Set rngCrit = wsL.Range("CritList")
    vCrit = rngCrit.Value
    
    ' 按非空单元格数量重定义一维数组长度，跳过空值
    ReDim oneDimCrit(0 To WorksheetFunction.CountA(rngCrit) - 1)
    arrIdx = 0
    
    ' 遍历二维数组，将有效值写入一维数组
    For i = LBound(vCrit, 1) To UBound(vCrit, 1)
        If Not IsEmpty(vCrit(i, 1)) Then
            oneDimCrit(arrIdx) = CStr(vCrit(i, 1))
            arrIdx = arrIdx + 1
        End If
    Next i
    
    ' 执行筛选
    wsO.ListObjects("Table1").Range.AutoFilter _
        Field:=8, _
        Criteria1:=oneDimCrit, _
        Operator:=xlFilterValues
End Sub

• 不要直接用WorksheetFunction.Transpose(rngCrit)做一维转换：当条件条目数超过65536时，Transpose方法会直接抛出运行时错误，遍历转换的写法兼容性覆盖所有Excel版本
• 代码内置了空值跳过逻辑，避免命名区域内的空白单元格被当成筛选条件，导致匹配结果异常
• 所有筛选条件统一转为字符串类型，避免数值/文本格式不匹配导致部分值筛选不到的问题

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