跨表记录汇总

sanson4760

多一个问题来请教大师们：A列订单号等于“汇总”表B1时,D2至右边有出现数量时则将D1至右边的品名填入“汇总”表A列,相应将数量合计在B列。谢谢大家！

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 4 To UBound(arr, 2)
   
6.             s = arr(i, 1) & arr(1, j)
   
7.             d(s) = d(s) + arr(i, j)
   
8.         Next
   
9.     Next
   
10.     brr = ActiveSheet.UsedRange
    
11.     For i = 4 To UBound(brr)
    
12.         s = brr(1, 2) & brr(i, 1)
    
13.         If d.exists(s) Then brr(i, 2) = d(s)
    
14.     Next
    
15.     ActiveSheet.UsedRange = brr
    
16. End Sub

复制代码

lsc900707

代码在审核，先测试附件吧：

sanson4760

lsc900707 发表于 2018-9-15 10:04
代码在审核，先测试附件吧：

大师您好：配件名称不会根据该订单号有数量的名称取到汇总表,数量也不对。请您再看看。谢谢您！

sanson4760

sanson4760 发表于 2018-9-15 10:15
大师您好：配件名称不会根据该订单号有数量的名称取到汇总表,数量也不对。请您再看看。谢谢您！

回复朱荣兴老师,那些文字我忘了删除。

sanson4760

sanson4760 发表于 2018-9-15 10:18
回复朱荣兴老师,那些文字我忘了删除。

回复lsc900707老师,数量是对的,就是配件名称不能根据该订单号有数量的名称取到汇总表的a列，请您看看，谢谢！

lsc900707

sanson4760 发表于 2018-9-15 10:30
回复lsc900707老师,数量是对的,就是配件名称不能根据该订单号有数量的名称取到汇总表的a列，请您看看，谢 ...

抱歉我审题不严，没有按要求解答。你自己修改一下吧。