求助如何做差异统计

月落天涯

劳烦各位大神帮忙，公司时不时有大订单装箱发货，但是发货周期很长，装箱断断续续，这样就需要在每次装箱后统计一下订单还有多少货没装，希望达到的效果是：在统计表点击按钮后，装箱数量低于订单数量的，自动筛选并显示差异数量，订单数量来源于订单明细，装箱数量来源于装箱明细，需要强调的是，单一物料往往要多次装箱，才能达到订单数量，因此要累计多次装箱后的数量，比对订单数量，才能得出差异数。差异数=订单数量-装箱数量。有鲜花，谢谢各位大神。表中已经模拟了两组数据。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.31
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set d1 = CreateObject("Scripting.Dictionary")
   
6.     With Sheets("订单明细")
   
7.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
8.         arr = .[a1].Resize(r, 5)
   
9.     End With
   
10.     For i = 4 To UBound(arr)
    
11.         s = arr(i, 2) & "|" & arr(i, 3)
    
12.         d(s) = d(s) + arr(i, 5) * 1
    
13.     Next
    
14.     With Sheets("装箱明细")
    
15.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
    
16.         arr = .[a1].Resize(r, 5)
    
17.     End With
    
18.     For i = 4 To UBound(arr)
    
19.         s = arr(i, 2) & "|" & arr(i, 3)
    
20.         d1(s) = d1(s) + arr(i, 5) * 1
    
21.     Next
    
22.     ReDim brr(1 To d.Count, 1 To 7)
    
23.     For Each k In d.keys
    
24.         If d(k) <> d1(k) Then
    
25.             m = m + 1
    
26.             brr(m, 1) = m
    
27.             brr(m, 2) = Split(k, "|")(0)
    
28.             brr(m, 3) = Split(k, "|")(1)
    
29.             brr(m, 4) = "个"
    
30.             brr(m, 5) = d(k)
    
31.             brr(m, 6) = d1(k)
    
32.             brr(m, 7) = d(k) - d1(k)
    
33.         End If
    
34.     Next
    
35.     With Sheets("差异统计")
    
36.         .[a4:h10000] = ""
    
37.         arr = .[a1].Resize(r, 2)
    
38.         .[a4].Resize(m, 7) = brr
    
39.     End With
    
40.     Set d = Nothing
    
41.     Application.ScreenUpdating = True
    
42.     MsgBox "OK！"
    
43. End Sub
    
44. 
    

复制代码

一条小笨笨

练个手玩玩

gwjkkkkk

参与一下。。。

limonet

关键字：group by +left join

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, StrSQL_D$, StrSQL_Z$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL_D = "Select * From [订单明细$B3:E]"
    StrSQL_Z = "Select 型号,规格,Sum(数量) As 数量 From [装箱明细$B3:E] Group By 型号,规格"
    StrSQL = "Select a.*,IIF(b.数量 is Null,0,b.数量) As 装,a.数量-IIF(b.数量 is Null,0,b.数量) As 差异 From (" & StrSQL_D & ")a Left join (" & StrSQL_Z & ")b On a.型号=b.型号 And a.规格=b.规格"
    StrSQL = "Select * From (" & StrSQL & ") Where 差异<>0"
    Range("B7").CopyFromRecordset Cn.Execute(StrSQL)
End Sub