带条件的数据汇总

语虚何以言知

吴中泉 发表于 2023-7-3 10:58
看4楼，你就知道哪里做错了。

好的老师,我中午抽空再研究下,非常 感谢

语虚何以言知

ykcbf1100 发表于 2023-7-3 10:08
不知道你的小花是哪里来的，别人帮助你，你都不知道送小花的吗？
不送小花也就罢了，你还要再提要求？

老师教训的是,给您小花了,烦请点评

每天进步一点sy

蹲一下

ykcbf1100

语虚何以言知 发表于 2023-7-3 13:27
老师教训的是,给您小花了,烦请点评

其实，错的地方也不多，主要是三个地方，4楼老师已经点明了。
我这里再说一下：
一、数据行是从第3行开始的，所以，For i=1应该改为For i=3；同理，数据写入的位置也应该是[B3]。这就是为啥C1多一个0的原因，因为，你写在B１;
二、既然你加入了条件，自然，应该新写入一个判断语句。

ykcbf1100

语虚何以言知 发表于 2023-7-3 13:27
老师教训的是,给您小花了,烦请点评

另外，你用的是cells，所以，set rng语句没起作用了。

常规做法，是定义成数组，如：arr = Sheets("收款清单").[a2].CurrentRegion，然后下面cells改用arr

吴中泉

ykcbf1100 发表于 2023-7-3 15:07
其实，错的地方也不多，主要是三个地方，4楼老师已经点明了。
我这里再说一下：
一、数据行是从第3行开 ...

今天只有一分了

不过一分也是爱

语虚何以言知

ykcbf1100 发表于 2023-7-3 15:07
其实，错的地方也不多，主要是三个地方，4楼老师已经点明了。
我这里再说一下：
一、数据行是从第3行开 ...

老师你可能没仔细看我的附件,
我是二楼答题的,不是提问的楼主
我上传的附件的代码写在我新建的查询表里面


模块1里面是题主原来的代码我没删

语虚何以言知

ykcbf1100 发表于 2023-7-3 15:12
另外，你用的是cells，所以，set rng语句没起作用了。

常规做法，是定义成数组，如：arr = Sheets("收 ...

老师您6楼的附件里面修改题主的代码可能疏漏了




rng的rows.count是10没错,
但是循环工作表的时 从3 到10 就会少统计11行的订单号是0000009的金额

ykcbf1100

吴中泉 发表于 2023-7-3 16:32
今天只有一分了

不过一分也是爱

谢谢，花不在多，在于心意！

ykcbf1100

语虚何以言知 发表于 2023-7-3 20:02
老师你可能没仔细看我的附件,
我是二楼答题的,不是提问的楼主
我上传的附件的代码写在我新建的查询表里 ...

晕，我还以为是楼主。