Question

为什么这段代码不起作用？ Col＆＃34; A＆＃34;填充为FALSE或TRUE。 b2包含FILTER b3包含TRUE

Sub FAST_hide_rows()
Range("a1:a153804").AdvancedFilter Action:=xlFilterInPlace,CriteriaRange:=Range("b2:b3"), Unique:=False
End Sub

代码查找所有记录但不隐藏它们。它应该隐藏所有的FALSE行。它适用于一张纸但不适用于另一张纸。

有什么想法吗？

Answer 1

它适用于一张纸但不适用于另一张纸。

你需要告诉宏哪个workhseet它应该工作，否则它将在ActiveSheet上工作。

试试这个：

Sub FAST_hide_rows()
Dim WS As Worksheet
Set WS = Sheet1      'Change it with your sheet number

WS.Range("a1:a153804").AdvancedFilter Action:=xlFilterInPlace,CriteriaRange:=WS.Range("b2:b3"), Unique:=False

End Sub

高级过滤器不起作用

1 个答案: