用自定义数组替换VBA筛选器数组

Question

我有一个数组，它包含一些使数组范围无效的单元格。我已经存储了数据来过滤出受影响的行，但当数组在过滤器中被替换时，它要么过滤所有内容，要么什么都不过滤。

For i = LBound(SOS_array1) To UBound(SOS_array1)
filter1(i) = CStr(SOS_array1(i, 1))
Next i
Sheets("NSR " & NSR1).Select
ActiveSheet.Range("$A$A:$T$T").AutoFilter Field:=4, Criteria1:=Array(Join(filter1, ",")), _
Operator:=xlFilterValues

其中，Sos_array1是要作为整数进行过滤的数据，filter1是转换为字符串的数据。

Answer 1

尝试以下操作：

Sheets("NSR " & NSR1).Range("A:T").AutoFilter Field:=4, Criteria1:=filter1, Operator:=xlFilterValues

或者更好：

Sheets("NSR " & NSR1).Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:=filter1, Operator:=xlFilterValues