excelmacros来循环过滤选项

在Excel文件A中，我有一个家庭types的零件清单。 Col B到KI中的0.5V, 2V, 5V,10V,12V, etc都有一些零件数据尺寸和类似的东西。 我正在寻找一种方法来使macrosA运行一个filter，然后运行其他已有的代码，清除filterselect，然后转到filter中的select选项。

所以如果我的filter选项是

 .1 .5 .03 .9 2 8 

它会过滤.1 ，运行代码，清除filter，filter.5 ，运行代码，清除filter，filter.03等等等我完全失去了如何循环通过filter列表。 任何帮助将非常感激

Answer 1

创build一个数组的数组，然后在数组中循环

 Sub sequentialAutoFilter() Dim a As Long, arrs As Variant arrs = Array(0.1, 0.5, 0.03, 0.9, 2, 8) With Worksheets("Sheet99") If .AutoFilterMode Then .AutoFilterMode = False With .Cells(1, 1).CurrentRegion For a = LBound(arrs) To UBound(arrs) .AutoFilter field:=1, Criteria1:=arrs(a) With .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0) If CBool(Application.Subtotal(103, .Cells)) Then 'there are filtered cells visible, run code here 'note: .Cells does not include the header row here End If End With Next a End With If .AutoFilterMode Then .AutoFilterMode = False End With End Sub 

---

¹ _{引用Scott Craner的评论。}