如何使用VBA处理自动筛选

Question

在此处输入图片说明

我在ActiveSheet.ShowAllData行的以下行代码遇到了麻烦，因为有时我的工作表会启用自动筛选器，有时会关闭自动筛选器。 有没有办法解决这个问题？

Answer 1

考虑：

Sub Framm()
    With ActiveSheet
        If (.AutoFilterMode And .FilterMode) Or .FilterMode Then
            .ShowAllData
        End If
    End With
End Sub

请注意，这实际上不会删除自动过滤器，只会删除所有取消选择。 它还将：

• 如果所有数据都已显示，则不否
• 如果不存在过滤，则为barf。

Answer 2

如果直接将代码粘贴到问题中而不是显示图片，则容易得多-无法将图片复制并粘贴到VBE中。

您需要在清除过滤器之前检查是否已过滤任何内容：

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData