运行 AutoFilter VBA 代码后未在 Excel 中正确显示过滤器

Question

我有一个 Excel 数据列表，其中前 10 行中有橘子和苹果。过滤器也被应用。在 excel 中，您可以过滤它们并选择橙子或苹果，因此只有选定的一个是可见的，使用 excel 过滤器。使用 VBA 代码：

ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="<>orange"

我能够过滤掉橘子，并且只有苹果可见（这是应用文本过滤器）。但问题是当我点击过滤器时，没有选择任何项目（在图片中）。我需要查看未过滤的项目（苹果），就像您在 Excel 中手动操作时一样。

Answer 1

用途：

ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="apple"

代替：

 ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="<>orange"

不等号将其带到TextFilter。

You might benefit from this answer