高级筛选Excel VBA

Question

我为我的高级过滤器创建了一个动态列表范围。 我创建了名为“数据”的名称。 当我尝试在VBA公式中输入名称时，收到错误消息。 动态名称适用于条件和输出范围？

Range("Sheet2!Data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("Sheet2!Filter"), CopyToRange:=Range("Sheet2!Location"), Unique:=False

我收到以下运行时错误“ 1004”：

对象“ _Global”的方法“范围”失败

Answer 1

如果“命名范围”的范围仅适用于Sheet2 ，则需要使用Worksheets("Sheet2")完全限定Range ，如以下代码所示：

With Worksheets("Sheet2")
    .Range("Data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("Filter"), _
                CopyToRange:=.Range("Location"), Unique:=False
End With

如果您的“命名范围”的范围是“ Workbook则使用下面的代码（无需使用“ Worksheet限定Range ）：

Range("Data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Filter"), _
                CopyToRange:=Range("Location"), Unique:=False