大佬，帮帮忙，按混合料类型，和每天统计

Kmasbox

文件里面有个sheet2，里面填了几天的。。

lcluck2002

看不出Sheet1和Sheet2的具体对应关系。

Kmasbox

lcluck2002 发表于 2024-11-9 08:38
看不出Sheet1和Sheet2的具体对应关系。

把sheet1里面E列那个是混合料类型，I列是拌合数量，时间是后面那列，需要把把每一天的不同的混合料料类型的吨数相加计算出来，统计到sheet2表

shiruiqiang

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.9
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ReDim brr(1 To 10000, 1 To 100)
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         arr = .[a1].Resize(r, 12)
   
8.     End With
   
9.     For i = 2 To UBound(arr)
   
10.         rq = DateValue(arr(i, 11))
    
11.         ti = TimeValue(arr(i, 11))
    
12.         st = stoc(arr(i, 5))
    
13.         s = rq & "|" & st
    
14.         If Not d.exists(s) Then
    
15.             m = m + 1
    
16.             d(s) = m
    
17.             brr(m, 1) = m
    
18.             brr(m, 2) = rq
    
19.             brr(m, 3) = ti
    
20.             brr(m, 4) = ti
    
21.             brr(m, 5) = st
    
22.             brr(m, 6) = arr(i, 9)
    
23.         Else
    
24.             r = d(s)
    
25.             brr(r, 3) = IIf(brr(r, 3) <= ti, brr(r, 3), ti)
    
26.             brr(r, 4) = IIf(brr(r, 4) > ti, brr(r, 4), ti)
    
27.             brr(r, 6) = brr(r, 6) + arr(i, 9)
    
28.         End If
    
29.     Next
    
30.     With Sheets("Sheet2")
    
31.         .UsedRange.Offset(1).Clear
    
32.         With .[a2].Resize(m, 6)
    
33.             .Value = brr
    
34.             .Borders.LineStyle = 1
    
35.             .HorizontalAlignment = xlCenter
    
36.             .VerticalAlignment = xlCenter
    
37.         End With
    
38.     End With
    
39.     Set d = Nothing
    
40.     Application.ScreenUpdating = True
    
41.     MsgBox "OK！"
    
42. End Sub
    

复制代码

Kmasbox

ykcbf1100 发表于 2024-11-9 09:14
附件供参考。。。

感谢大佬，我研究研究

Kmasbox

shiruiqiang 发表于 2024-11-9 08:58

感谢大佬，我研究研究思路

z865593849

按时间累加

longwin

附件供参考。。。。。