excel - VBA:循环遍历 Excel 过滤器中的条件？

Question

我整个上午都在想办法解决这个问题。有没有办法循环遍历 Excel 中列过滤器中的条件，同时用条件名称填充数组？似乎过滤器对象只有一个条件1和条件2。抱歉，如果我的任何术语不清楚，我对 Excel 还是很陌生。

(这是使用 Excel 2007)

Answer 1

看来，如果您选择了 1 或 2 个条件，那么这些条件将存储在 .Criteria1 中。和 .Criteria2 .

但是，如果您有超过 2 个，那么 .Criteria1成为选定过滤器的数组 - 然后您可以使用...进行迭代

Dim iFilt As Integer       'This should be set equal to the column 
                           'index you are interested in

Dim iFiltCrit as Integer

For iFiltCrit = 1 To UBound( Sheet1.AutoFilter.Filters(iFilt).Criteria1 )
    Debug.Print Sheet1.AutoFilter.Filters(iFilt).Criteria1(iFiltCrit)
Next

请注意，这仅适用于具有 2 个以上条件的列 - 您如何确定是否是这种情况取决于您 - 这是一个相当笨重的 Excel API(惊喜)，因为它的类型很松散。