[已解决]请老师们帮看一下查询代码是哪里错了,不能运行

风花雪月8888

供应商资金往来情况.rar (10.35 KB, 下载次数: 18)

2012-11-4 10:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-11-4 12:02

数据源地址中没有标题，所以无法进行筛选
将    Sheets("明细表").Range("A4:i1000")
改为 Sheets("明细表").Range("A3:i1000")
就可以了

1. 
   
2. Sheets("明细表").Range("A3:i1000").AdvancedFilter 2, Range("A3:I4"), Range("A8:I8"), 0
   

复制代码

跳转到最佳答案楼层

chin15

没有数据可筛选            

无聊的疯子

数据源地址中没有标题，所以无法进行筛选
将    Sheets("明细表").Range("A4:i1000")
改为 Sheets("明细表").Range("A3:i1000")
就可以了

1. 
   
2. Sheets("明细表").Range("A3:i1000").AdvancedFilter 2, Range("A3:I4"), Range("A8:I8"), 0
   

复制代码

风花雪月8888

谢谢