难以设置AutoFilter范围

Question

我有这类数据：

​

​

我想要设置一个AutoFilter，以包括单元格、、A1、和A4。，我不想在过滤器范围内包括A5。此代码无法做到这一点：

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

是否可以在一组特定的行上创建一个AutoFilter，而不管下面的行是否已被填充？

Answer 1

与其设置自动筛选器，不如定义一个listobject吗？

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