要仅从选定列中清除筛选器，请基于活动单元格尝试以下操作：

Sub ClearTableColumnFilter()

    Dim tbl As ListObject
    Set tbl = ActiveCell.ListObject

    If Not tbl Is Nothing Then
        tbl.Range.AutoFilter Field:=ActiveCell.Column - tbl.Range.Column + 1
    End If

End Sub

字符串
这将标识正确的列号，即使该表不在工作表的A列中也是如此。此外，这将避免“运行时错误'91'”，否则，如果活动单元格不在表中，则会发生该错误。

• ActiveCell.ListObject是活动表。
• 如果不使用其他参数（例如Criterial1），则不需要Field。
• 清除所有过滤器 *

ActiveCell.ListObject.Range.AutoFilter

字符串

• 使用ActiveCell清除过滤器 *

With ActiveCell.ListObject.Range
        .AutoFilter Field:=.Column - ActiveCell.Column + 1
    End With

型