想在
.Range("A1:J2298").AutoFilter Field:=2, Criteria1:=Array("01", "02"), Operator:=xlFilterValues
上面加个for循环，让 Criteria1:=的参数不断变化，且参数的个数也会随循环不断变化，比如参数是（1），（1，2），（1，3），（1，2，3），（1，3，5），（1，2，3，4）.....循环结束，每个括号里是一组参数。
请问这样的话，参数要怎么设置 ，求大神明示

提示：Array函数可以嵌套使用，例如：
Array(Array(1),Array(1,2),Array(1,3),Array(1,2,3),Array(1,3,5),Array(1,2,3,4))
在循环之前把上述表达式赋值给一个Variant类型的变量，比如arr，然后循环范围是For i=0 To UBound(arr)，循环中的条件写成Criteria1:=arr(i)即可