使用 VBA 访问自动筛选列表

Question

如何使用 VBA 访问自动过滤器显示的列中值的唯一列表？

我已经知道如何使用 VBA 打开和关闭自动筛选。我可以使用 VBA 访问用户设置的筛选。如果我知道要设置的值，我可以使用 VBA 设置筛选。

我知道如何通过复制范围并使用“删除重复项”来从列中获取唯一的值列表。我还可以使用高级筛选来获取唯一的列表。我可以通过循环遍历所有值并创建集合或字典来创建唯一的列表。

Answer 1

您无法访问工作表过滤器下拉列表中显示的列表。请根据条件构建一个变量值数组，然后将该数组传递到.AutoFilter Field:=1, Criteria1:=(myArray), Operator:=xlFilterValues。