按订单号去重求和

宝玉66

老师，SAP-nzscrap F列订单号如何去重后计算N列和O列的和显示在时间录入与SAP对比N列和O列上。

宝玉66

附件忘记上传了

ykcbf1100

附件供参考。。。

ykcbf1100

代码以附件为准。

1. Sub ykcbf()   '//2024.1.29
   
2.     Dim arr, brr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("SAP-nzscrap ")
   
6.         r = .Cells(.Rows.Count, "f").End(xlUp).Row
   
7.         arr = .Range("f1:o" & r)
   
8.     End With
   
9.     ReDim brr(1 To UBound(arr), 1 To 12)
   
10.     For i = 2 To UBound(arr)
    
11.         s = arr(i, 1)
    
12.         If Not d.exists(s) Then
    
13.             d(s) = Array(arr(i, 9), arr(i, 10))
    
14.         Else
    
15.             t = d(s)
    
16.             t(0) = t(0) + arr(i, 9)
    
17.             t(1) = t(1) + arr(i, 10)
    
18.             d(s) = t
    
19.         End If
    
20.     Next
    
21.     With Sheets("时间录入与SAP对比")
    
22.         r = .Cells(.Rows.Count, 3).End(xlUp).Row
    
23.         brr = .Range("c1:j" & r)
    
24.         For i = 2 To UBound(brr)
    
25.             s = CStr(brr(i, 1))
    
26.             If d.exists(s) Then
    
27.                 brr(i, 7) = d(s)(0)
    
28.                 brr(i, 8) = d(s)(1)
    
29.             End If
    
30.         Next
    
31.         .Range("c1:j" & r) = brr
    
32.     End With
    
33.     Set d = Nothing
    
34.     Application.ScreenUpdating = True
    
35.     MsgBox "OK！"
    
36. End Sub
    

复制代码

宝玉66

ykcbf1100 发表于 2024-1-29 20:27
代码以附件为准。

谢谢老师多次的帮助