使用Clear method在过滤前清空筛选条件。示例代码如下:
Sub FilterTable()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '修改为具体的工作表名称
ws.AutoFilterMode = False '清除之前的筛选条件
'设置筛选条件
ws.Range("A1").AutoFilter Field:=1, Criteria1:="Apple"
End Sub