用于动态数组筛选的 Excel 宏出错

好吧，您可以（直接）提取一个数组以用作条件。但是数组元素必须是字符串，即使过滤后的列包含数字......为了使其正常工作，必须将每个数组元素转换为字符串。

请尝试以下方法：

Sub testFilteringCol5()
  Dim arrCrit() As Variant, i As Long
  
  arrCrit = Range("Q1:V1").value 'place the range in an array

  'cast each array element to string:
  For i = 1 To UBound(arrCrit, 2): arrCrit(1, i) = CStr(arrCrit(1, i)): Next i
  
  'use the strings array as `Criteria1` (columns headers must exist on the 6th row):
  ActiveSheet.Range("A6").AutoFilter field:=6, Criteria1:=arrCrit, Operator:=xlFilterValues
End Sub

请在测试后发送一些反馈。