我试图编写一个简单的宏来简化过滤,让高级用户看起来更有吸引力。我无法弄清楚如何接受多个输入来自我已经制作的(数据验证)下拉菜单,将它们放在另一张纸上的列中是用作过滤器的数组。我需要为8个不同的问题"做这个。
请帮忙。
现在,这篇文章背后没有代码。但是迭代数组的代码看起来像这样
Dim N As Long, r As Range
With Sheets("Workingsheet")
N = .Cells(Rows.Count, "A").End(xlUp).Row
ReDim ary(1 To N)
For i = 1 To N
ary(i) = .Cells(i, 1)
Next i
End With
My_Range.AutoFilter
My_Range.AutoFilter Field:=22, Criteria1:=ary, Operator:=xlFilterValuesenter