数据统计

snto167

如附件里的表格，我们要统计出入库表里的数据，出的数量和进和数量，及多种方式统计平均价， 麻烦一下高人了，谢谢 工作簿1.rar (11.73 KB, 下载次数: 10)

2021-8-27 23:49 上传

点击文件名下载附件

chxw68

这里很多都不是学统计学的，统计表里的这些数据怎么计算应该说明一下。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet2")
   
7.     rq1 = .Range("l1")
   
8.     rq2 = .Range("n1")
   
9.   End With
   
10.   With Worksheets("入库")
    
11.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.     arr = .Range("a2:h" & r)
    
13.   End With
    
14.   For i = 1 To UBound(arr)
    
15.     If arr(i, 1) >= rq1 And arr(i, 1) <= rq2 Then
    
16.       xm = arr(i, 3) & "+" & arr(i, 4)
    
17.       If Not d.exists(xm) Then
    
18.         ReDim brr(1 To 10)
    
19.         brr(1) = arr(i, 3)
    
20.         brr(2) = arr(i, 4)
    
21.       Else
    
22.         brr = d(xm)
    
23.       End If
    
24.       If arr(i, 2) = "入" Then
    
25.         brr(3) = brr(3) + arr(i, 6)
    
26.         brr(6) = brr(6) + arr(i, 8)
    
27.       Else
    
28.         brr(4) = brr(4) + arr(i, 6)
    
29.         brr(8) = brr(8) + arr(i, 8)
    
30.       End If
    
31.       
    
32.       d(xm) = brr
    
33.     End If
    
34.   Next
    
35.   m = 0
    
36.   ReDim crr(1 To d.Count, 1 To 10)
    
37.   For Each aa In d.keys
    
38.     brr = d(aa)
    
39.     brr(6) = Round(brr(6) / brr(3), 4)
    
40.     brr(8) = Round(brr(8) / brr(4), 4)
    
41.     m = m + 1
    
42.     For j = 1 To UBound(brr)
    
43.       crr(m, j) = brr(j)
    
44.     Next
    
45.   Next
    
46.   With Worksheets("sheet2")
    
47.     .UsedRange.Offset(1, 0).Clear
    
48.     .Range("a2").Resize(UBound(crr), UBound(crr, 2)) = crr
    
49.   End With
    
50. End Sub
    

复制代码

chxw68

写了能写的。