请教: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
。收起