请教：EXCEL高级筛选
我用高级筛选来录了一段宏，并稍作修改，但这段宏时面能远行，时而不行，为什么？
宏代码：
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
盼高手指点，万分感谢！！
原来的代码就缺两个点，使用。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
。
答：【推荐阅读】 Excel“自动筛选”“高级筛选”实例剖析 Excel的数据筛选功能详情>>
答：这个问题牵扯的面很大，涉及到软件的破解问题，三言两语说不清的。买破解版的软件应该没有这个问题了。要学破解的话，必须会用汇编语言。暂时说这么多。详情>>
问：爱问里的朋友和网络专家你们好，怎样才能解除还原精灵的密码？老师控制的我们的电脑。
答：还用问吗?有两个方法.一.用刀架在你们老师脖子上.密码就会有.二.点F11,进入还原精灵.在他弹出输入密码时关机.重复几次.后马上跟老师说.电脑有问题了.叫老师...详情>>
