尝试使用范围作为对话框输入来应用高级过滤器？

Question

在高级过滤器代码行中出错。 Object不支持此属性或方法。

Dim rng As Range
Set rng = Application.InputBox(Prompt:="Select range or enter A1 notation:", Type:=8)

Workbooks(filename).Sheets("Sheet1").rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "A1:A2"), CopyToRange:=Range("A3"), Unique:=False

Answer 1

您不需要将工作簿和工作表定义为在设置范围时已将其定义为范围。更改代码：

Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "A1:A2"), CopyToRange:=Range("A3"), Unique:=False