如果自动过滤器已经打开，我该如何使用if语句关闭自动过滤器，否则请将其关闭

Question

我想要一些代码，如果当前打开它会关闭自动过滤器。我似乎无法让它工作，也没有找到解决方案。

谢谢，

罗布

Answer 1

这是我使用的东西。它适用于硬编码范围，但您也可以将其作为参数传递。差不多，如果有自动过滤器，它会在A2:K2上禁用它。

Public Sub CleanTheFilters()

    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.Range("A2:K2").AutoFilter
    End If

End Sub