请教：EXCEL高级筛选我用高级筛选来
原来的代码就缺两个点，使用。Activate方法激活工作表后，在数据源不在激活的工作表中使用AdvancedFilter方法时，所引用单元格还是要显式声明。
Sub 高级筛选()
Application。 ScreenUpdating = False '关闭屏幕刷新
Dim introw%
introw = Sheets("产品")。Range("A65536")。End(xlUp)。Row '获取产品表最末行数据的行号
With Sheets("查询")
。 Activate
。Range("E2") = 。Range("C1")
Sheets("产品")。Range("A1:J" ...全部
原来的代码就缺两个点，使用。Activate方法激活工作表后，在数据源不在激活的工作表中使用AdvancedFilter方法时，所引用单元格还是要显式声明。
Sub 高级筛选()
Application。
ScreenUpdating = False '关闭屏幕刷新
Dim introw%
introw = Sheets("产品")。Range("A65536")。End(xlUp)。Row '获取产品表最末行数据的行号
With Sheets("查询")
。
Activate
。Range("E2") = 。Range("C1")
Sheets("产品")。Range("A1:J" & introw)。AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=。
Range("E1:E2"), CopyToRange:=。Range("A11"), Unique:=False
End With
Application。ScreenUpdating = True '打开屏幕刷新
End Sub
。收起
