为什么我不断收到错误1004工作表范围失败？

尝试使用Sheet1中的数据和条件自动刷新Sheet2中的高级筛选器。 看起来很简单，但是下面的代码无论我尝试什么，都会导致范围对象出现1004错误。 我错过了什么？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("Sheet1!A1:C4").AdvancedFilter Action:=xIFilterCopy, _ CriteriaRange:=Range("Sheet1!E1:E2"), _ CopyToRange:=Range("Sheet2!A1:B4"), _ Unique:=False End Sub 

谢谢。

Answer 1

有一个隐含的Me. 在工作表模块中调用时，在Range调用之前。 所以只能在sheet2中查找名为“Sheet1！E1：E2”的范围。 它将在一个独立的模块（所以你可以创build一个过程调用），或者如果你在评论中使用@Joshua Ross的build议。