自动对账求助

kingpin

    根据@microyip大侠的帖子自己调整了一下对账单的一些项目，但我希望在采购单号和客户料号相同的情况下，自动加重数量&小计等，请各位大佬帮忙更新一下，感谢！

鄂龙蒙

日期不同怎么办？

kingpin

鄂龙蒙 发表于 2018-9-23 19:23
日期不同怎么办？

日期不用管，条件是订单号码和料号

鄂龙蒙

1. Sub 统计()
   
2.     Dim d, ar, br(), m%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.    [A12:K24] = Empty
   
5.    sa = Array(4, 5, 1, 3, 2, 6, 7, 8, 9)
   
6.     ar = Sheet2.Range("A1").CurrentRegion
   
7.         For i = 2 To UBound(ar)
   
8.             s = ar(i, 1) & ar(i, 2)
   
9.             If d(s) = "" Then
   
10.                 m = m + 1
    
11.                 ReDim Preserve br(1 To 11, 1 To m)
    
12.                 d(s) = m
    
13.                 For j = 0 To 8
    
14.                     br(j + 1, m) = ar(i, sa(j))
    
15.                 Next
    
16.             Else
    
17.                 br(6, d(s)) = br(6, d(s)) + ar(i, 6)
    
18.                 br(9, d(s)) = br(9, d(s)) + ar(i, 9)
    
19.             End If
    
20.         Next
    
21.     [A12].Resize(m, 11) = Application.Transpose(br)
    
22.    Set d = Nothing
    
23. End Sub

复制代码

kingpin

鄂龙蒙 发表于 2018-9-23 19:39

请问这个代码插入到原代码哪个位置呀

kingpin

没了？？？？

kingpin

请问还有老师帮忙一下吗，谢谢啦