excel - 取消筛选 excel 表中所有列并将筛选器保留在列中的正确 vba 是什么？

Question

我有一个充满数据的表格，我有一个下拉列表，当您选择下拉项时，它会过滤表格中的列。

我遇到的问题是我想要一个简单的重置按钮来取消对列的过滤。就这么简单。我不希望过滤器消失。

我尝试了很多解决方案

作为引用，我使用了另一个提交到该站点的文件，但它不起作用，我收到了“400”错误消息 VBA Unfilter range

Worksheets("Sheet1").ShowAllData

我尝试过的另一种解决方案

With ActiveSheet
    .Cells.EntireColumn.Hidden = True
    .Cells.EntireRow.Hidden = True
    .AutoFilterMode = True
End With

一定有一些 super 简单的东西，我在这里不考虑。

Answer 1

我想通了。我不确定它背后的确切科学，但必须先选择表格的范围。

    Sub Unfilter()
'Unfilter all table columns
     ActiveSheet.Range("R15:BH1072").Select
        If ActiveSheet.FilterMode = True Then
            ActiveSheet.ShowAllData
        End If
End Sub