不过宏代码最好稍微修改一下:
Sub
Macro1()
'
'
Macro1
Macro
'
宏由
USER
录制,时间:
2010-6-4
'
'
[A493:K65536].Clear
[A1:K488].AdvancedFilter
Action:=xlFilterCopy,
CriteriaRange:=[N1:O3],
CopyToRange:=[A493]
End
Sub
欢迎分享,转载请注明来源:内存溢出
不过宏代码最好稍微修改一下:
Sub
Macro1()
'
'
Macro1
Macro
'
宏由
USER
录制,时间:
2010-6-4
'
'
[A493:K65536].Clear
[A1:K488].AdvancedFilter
Action:=xlFilterCopy,
CriteriaRange:=[N1:O3],
CopyToRange:=[A493]
End
Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)