VBA查询指定材料表在另一个库存表中的库存总数和品牌加总

快人一步

hfwufanhf2006 发表于 2020-5-8 11:29
你表达的不是很清楚，“无锡华虹“里面还有很多“空”的品牌，该如何汇总？
下面代码把所有的“空”品牌都 ...

求助历遍多个工作簿包含多个工作表汇总计算个数，请各位大神用VBA帮忙，谢谢！

hfwufanhf2006

下面有附件，你要核对数据对不对，我是看不出来；

hfwufanhf2006

快人一步 发表于 2020-5-22 23:31

上楼我给你写了一个

快人一步

hfwufanhf2006 发表于 2020-5-23 09:39
上楼我给你写了一个

多谢，师傅你应该是不把日期分开计算了，如图右边数据

hfwufanhf2006

快人一步 发表于 2020-5-23 13:42
多谢，师傅你应该是不把日期分开计算了，如图右边数据

晚点再给你改，周末我有别的事

快人一步

好，多谢师傅！

hfwufanhf2006

快人一步 发表于 2020-5-23 13:42
多谢，师傅你应该是不把日期分开计算了，如图右边数据

我把一些明显的错误改了，但结果还是与你的不一样，我也看不出哪里有问题。你数据表数量比较多，我检查不了。如果还有问题，你找个数量少的例子，并明确指出数据来自哪几个表，我才好有针对行去检查；

为了便于检查，你只留1-2个数据很少的文件，每个文件只留1-2个表，这样找问题就会比较容易；

快人一步

多谢师傅，验证到你的订购数量（订购日期）总数是正确的，完成时间不正确，原因你未把订购数量（订购日期）细分计算，完成时间连空格都计算了（即是应该同一公司代号、购买方式、订购日期计算将日期计算个数（第四列），完成时间（第七列）只计算有日期才计算，没有的不用计算）

hfwufanhf2006

快人一步 发表于 2020-5-25 22:54
多谢师傅，验证到你的订购数量（订购日期）总数是正确的，完成时间不正确，原因你未把订购数量（订购日期） ...

你说的情况不存在，有对第4列和第7列的判断，只有不是空，才有数量=1；
再看结果，订购总数和完成总数差异也很大，所以你还是要找个具体的例子，可以把数量压缩到很小的程度，再来确定问题；

快人一步

hfwufanhf2006 发表于 2020-5-26 08:53
你说的情况不存在，有对第4列和第7列的判断，只有不是空，才有数量=1；
再看结果，订购总数和完成总数差 ...

师傅多谢，我把s = wb.Worksheets(k).Cells(m, 1)  & wb.Worksheets(k).Cells(m, 18)改为s = wb.Worksheets(k).Cells(m, 1) & wb.Worksheets(k).Cells(m, 4) & wb.Worksheets(k).Cells(m, 18)订购数量各个订购日期分开与我表分项相同，如果把第七列改为空值不计算应该正确了但我不会改，
我看到人家的是这样计算，
If arr(i, 7) <> "" Then brr(n, 5) = 1
Else