Excel VBA中用Cells引用范围实现AutoFilter报438错误的求助

问题背景 #

编写VBA代码时，需通过两个条件用AutoFilter过滤工作表内容，原固定列范围（$A$1:$z$&raw_LR）无法适配未知列数的数据。尝试扩展列范围到$bz$时触发错误，推测与空表头有关；改用Cells构建动态范围后，触发438错误：“对象不支持该属性或方法”。

原有代码：

'With Worksheets("Raw SC data").Range("$A$1:$z$" & raw_LR)  'this needs to go further than Z!!!
    .AutoFilter Field:=5, Criteria1:=Crit1
    .AutoFilter Field:=Crit2, Criteria1:="<>"
End With

尝试的动态范围代码：

With Worksheets("Raw SC data").Range(Cells(1, 1), Cells(raw_LR, data_cols))
    .AutoFilter Field:=5, Criteria1:=Crit1
    .AutoFilter Field:=Crit2, Criteria1:="<>"
End With

错误原因 #

438错误的核心是未给Cells对象指定所属工作表。Cells(1,1)和Cells(raw_LR, data_cols)默认引用当前活动工作表的单元格，而Worksheets("Raw SC data").Range(...)试图将其他工作表的单元格作为范围参数，导致对象引用不匹配，触发属性/方法不支持的错误。

修正后的代码 #

在With块中给Cells添加工作表前缀（.），确保所有单元格对象绑定到目标工作表：

With Worksheets("Raw SC data")
    With .Range(.Cells(1, 1), .Cells(raw_LR, data_cols))
        .AutoFilter Field:=5, Criteria1:=Crit1
        .AutoFilter Field:=Crit2, Criteria1:="<>"
    End With
End With

补充说明 #

• 空表头相关：AutoFilter不严格禁止空表头，但空表头列可能被识别为数据行，导致筛选逻辑异常，建议确保表头行所有列有有效内容，或根据数据结构调整筛选范围。
• 若Crit2是排除空值，Criteria1:="<>"即可正常工作；若需排除空字符串，可改用Criteria1:="<>"""。

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