VBA中能否将AutoFilter声明为对象？及AutoFilter代码报错问题咨询

我来帮你逐个解决这两个VBA问题：

1. 能否在VBA中将AutoFilter声明为对象？ #

当然可以！VBA里确实存在AutoFilter对象类型，你可以直接声明这种类型的变量来引用已应用的筛选实例。不过要注意，它不能像普通对象那样直接创建，而是需要通过工作表或单元格区域的AutoFilter属性来获取已存在的筛选对象。举个例子：

Dim af As AutoFilter
' 获取"filter"工作表上已应用的筛选对象
Set af = Worksheets("filter").AutoFilter

需要区分的是：Range.AutoFilter是一个方法（用来给区域应用筛选操作），它本身返回的是Variant类型，并不是AutoFilter对象；而Worksheet.AutoFilter或Range.AutoFilter属性才会返回AutoFilter对象。

2. 代码报错“预期语句结束”的解决方法 #

你的代码出现报错主要有两个原因，我帮你拆解并修正：

错误原因分析 #

• 方法返回值不匹配：Range.AutoFilter是一个执行筛选的方法，它不返回Range对象，所以你不能把它的执行结果赋值给Range类型的变量x；
• 参数拼写错误：你写的Criterial是错误的，正确的参数名应该是Criteria1（多了一个多余的字母l），这个拼写错误导致VBA无法识别参数，从而抛出“预期语句结束”的错误。

修正后的代码 #

如果你只是想给指定区域应用筛选，直接执行方法即可；如果需要获取筛选后的可见单元格区域，再单独赋值：

' 第一步：给指定区域应用筛选（修正参数拼写）
Workbooks("main.xlsm").Worksheets("filter").Range("A1:Y100").AutoFilter Field:=1, Criteria1:="<>0"

' 第二步：如果需要获取筛选后的可见区域，再赋值给Range变量
Dim x As Range
Set x = Workbooks("main.xlsm").Worksheets("filter").Range("A1:Y100").SpecialCells(xlCellTypeVisible)

这样就能正常执行，不会再出现报错啦。

内容的提问来源于stack exchange，提问作者Arturo0504