难以设置自动筛选范围

Question

我有这种类型的数据：

我想设置一个AutoFilter，以包含 A1 到 A4的单元格。我不想在过滤器范围中包含 A5 。此代码无法执行此操作：

Sub FilterProblem()
    Range("A1:A4").AutoFilter
    MsgBox ActiveSheet.AutoFilter.Range.Address
End Sub

是否可以在特定行集上创建自动筛选，无论下面的行是否已填充？

Answer 1

您可以定义一个列表对象，而不是设置自动过滤器吗？

Sub FilterProblem()
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$A$4"), , xlYes).TableStyle = ""
End Sub