为什么使用AdvancedFilter后Excel表格表头的筛选下拉按钮全部失效？

问题原因 #

• 你调用AdvancedFilter时直接作用于结构化表（ListObject）的完整区域Table1[#All]，该方法属于工作表层面的筛选功能，和结构化表内置的表头筛选控件存在兼容性冲突
• 操作完成后Excel会默认断开结构化表的ShowAutoFilter属性关联，导致表头的筛选下拉按钮被隐藏，并不是真的被删除，所以重新开关「Header Row」就能重新激活该属性恢复按钮

修复方案 #

方案1：修改现有代码，从根源避免问题出现 #

执行完高级筛选后主动重新启用结构化表的自动筛选属性即可，修正后的完整代码如下：

' 清除现有筛选，针对结构化表的写法更稳定
On Error Resume Next
Sheet1.ListObjects("Table1").AutoFilter.ShowAllData
On Error GoTo 0
 
' 定义变量
Dim rngDatabase As Range
Dim rngCriteria As Range
Dim targetTable As ListObject
Set targetTable = Sheet1.ListObjects("Table1")

' 定义筛选区域和条件区域
Set rngDatabase = targetTable.Range
Set rngCriteria = Sheet1.Range("A2:J3")

' 执行高级筛选
rngDatabase.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
    :=rngCriteria, Unique:=False

' 主动恢复表头筛选按钮，核心修复代码
targetTable.ShowAutoFilter = True

方案2：按钮消失后一键恢复的临时代码 #

如果已经出现按钮消失的情况，运行下面一行代码即可直接恢复，不需要手动进入菜单操作：

Sheet1.ListObjects("Table1").ShowAutoFilter = True

内容的提问来源于stack exchange，提问作者Prionfou