难度设置自动筛选范围

我有这种types的数据：

我想设置一个AutoFilter来包含单元格A1到A4。 我不想在filter范围中包含A5 。 这段代码没有这样做：

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

是否有可能创build一个特定的一组行上的自动筛选，无论是否填充或下面的行？

Answer 1

而不是设置自动filter，你可以定义一个listobject？

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