VBA Worksheet_FollowHyperlink：点击超链接无法自动清除Master表筛选

问题场景与故障 #

在汇总页创建了多个指向自身单元格的超链接，通过Worksheet_FollowHyperlink实现点击跳转并筛选Master表：

• 点击L2：Master表Table对象第11字段筛选“Yes”
• 点击L3：Master表Table对象第12字段筛选“Yes”
• 以此类推

但每次点击新链接前必须手动清除Master表的筛选，否则筛选会叠加导致数据集大幅缩小。尝试用ActiveSheet.ShowAllData清除筛选未生效，原代码如下：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
    End If

If Target.Range.Address = "$L$2" Then

    Sheets("Master").Select
    ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=11, Criteria1:="Yes"
    End If
    
If Target.Range.Address = "$L$3" Then
    
    Sheets("Master").Select
    ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=12, Criteria1:="Yes"
    End If
End Sub

问题原因 #

原代码中ActiveSheet.ShowAllData操作的是触发事件的汇总页，而非需要清除筛选的Master表，所以无法清除目标表的筛选状态。

修正方案 #

直接定位Master表的Table对象，先清除其所有筛选，再设置目标字段的筛选条件，避免使用Select切换工作表（更高效且不易出错）：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim masterTable As ListObject
    Set masterTable = ThisWorkbook.Sheets("Master").ListObjects("Table")
    
    ' 清除Master表Table的所有筛选
    If masterTable.AutoFilter.FilterMode Then
        masterTable.AutoFilter.ShowAllData
    End If
    
    ' 根据点击的超链接设置对应字段的筛选
    Select Case Target.Range.Address
        Case "$L$2"
            masterTable.Range.AutoFilter Field:=11, Criteria1:="Yes"
        Case "$L$3"
            masterTable.Range.AutoFilter Field:=12, Criteria1:="Yes"
        ' 可继续添加更多Case对应其他超链接
    End Select
    
    ' 可选：跳转到Master表方便查看
    ThisWorkbook.Sheets("Master").Activate
End Sub

关键改进点 #

• 直接操作Master表的Table对象，避免依赖ActiveSheet和Select，减少上下文切换错误
• 针对性清除Master表Table的筛选，而非当前激活工作表的筛选
• 使用Select Case替代多个If，代码更简洁易维护

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