同一项目下不同子项目时间汇总

神秘风暴

各位老师好！


同一工令号不同子项号的时间汇总：
数据源中，B列工令号下有很多重复项，但同一个工令号的项目名称相同，C列子项号下有很多重复项，即一个工令号下有很多重复子项号，如果实现同一工令号不同子项号的时间汇总？请各位老师帮忙，万分感谢！

汇总表1【工令号单元格合并】
汇总表2【工令号单元格不合并】


详细请见附件

longwin

用数据透视表即可实现，方便快捷

songshihai

试试!!!!!!!!!!!!!!!!!!!!!!!!

神秘风暴

songshihai 发表于 2024-9-18 15:20
试试!!!!!!!!!!!!!!!!!!!!!!!!

非常感谢，如何自学才能达到？难道非要报补习班吗？

songshihai

神秘风暴 发表于 2024-9-19 08:09
非常感谢，如何自学才能达到？难道非要报补习班吗？

我没报过补习班儿,也没花过一分钱,全靠自学

神秘风暴

songshihai 发表于 2024-9-18 15:20
试试!!!!!!!!!!!!!!!!!!!!!!!!

老师：以下是我自己理解翻译的，不知道对不对呀，请指正！
    Set w1 = Sheet1: Set w2 = Sheet2: Set w3 = Sheet3
    w2.[a3:e10000].Delete Shift:=xlUp '//以下向上删除所选单元格或区域
    w3.[a3:e10000].Delete Shift:=xlUp
    Set d = CreateObject("scripting.dictionary") '//定义字典
    arr = w1.Range("a1").CurrentRegion '//Ctrl + a1 范围内的数组
   
    '汇总
    For i = 2 To UBound(arr) - 1 '//去除最后一行时间总和
        x = arr(i, 2) & "|||" & arr(i, 3) '// 指定工令号和子项号为关键字？
        If Not d.exists(x) Then '//如果字典中指定的关键字不存在
            d(x) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5)) '//则定义关键子的赋值为B-E的列表
        Else
            d(x) = Array(d(x)(0), d(x)(1), d(x)(2), d(x)(3) + arr(i, 5)) '//不懂....d(x)(0)是工令号吗？d(x)(3)+arr(i,5)是时间求和吗？
        End If
    Next i
   
    '输出并排序
    w2.[b3].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items)) '//把字典中所有的关键字对应的值赋给以b3单元格开始的单元格区域中
    w2.[a1].CurrentRegion.Offset(1).Sort w2.[b3], 2, Header:=1 '//不太懂
    w3.[b3].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
    w3.[a1].CurrentRegion.Offset(1).Sort w3.[b3], 2, Header:=1

usedrange

1. Sub tt()
   
2.     Dim ar, br, i%, dic, s$, k, t, r%
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     ar = Sheet1.[a1].CurrentRegion
   
5.     For i = 2 To UBound(ar)
   
6.         If ar(i, 1) <> "" Then
   
7.             s = ar(i, 2) & "|" & ar(i, 3) & "|" & ar(i, 4)  '把工令号和子项号、项目名称合并
   
8.             dic(s) = dic(s) + ar(i, 5)                      '合并项放入字典，以字典为变量累加时间的值
   
9.         End If
   
10.     Next i
    
11.     ReDim br(1 To dic.Count, 1 To 5)    '重置br数组，准备转载最终的数据
    
12.     r = 1
    
13.     For Each k In dic.keys              '从字典dic中取出关键词赋给k
    
14.         t = Split(k, "|")               '按“|”分割合并项，并以数组形式赋值给t
    
15.         For i = 0 To UBound(t)          '遍历数组t中取出值，i是下标
    
16.             br(r, i + 2) = t(i)         '按下标取出t的值并分配给br数组
    
17.         Next i
    
18.         br(r, 1) = r                    '输入序号值，这里用行数变量r的数据
    
19.         br(r, 5) = dic(k)               '这里是统计的时间值，通过dic(k)取出
    
20.         r = r + 1                       '行数加一
    
21.     Next k
    
22.     Sheet3.[a10].Resize(UBound(br), 5) = br '把数组br的值放到表格中，在sheet3表
    
23.     Set dic = Nothing
    
24. End Sub

复制代码

songshihai

神秘风暴 发表于 2024-9-19 09:47
老师：以下是我自己理解翻译的，不知道对不对呀，请指正！
    Set w1 = Sheet1: Set w2 = Sheet2: Set  ...

   w2.[a1].CurrentRegion.Offset(1).Sort w2.[b3], 2, Header:=1 '排序表头不动

songshihai

神秘风暴 发表于 2024-9-19 09:47
老师：以下是我自己理解翻译的，不知道对不对呀，请指正！
    Set w1 = Sheet1: Set w2 = Sheet2: Set  ...

    d(x) = Array(d(x)(0), d(x)(1), d(x)(2), d(x)(3) + arr(i, 5)) '//不懂....d(x)(0)是工令号吗？d(x)(3)+arr(i,5)是时间求和吗？对!字典的常规套路

kyxfyzg

仅供参考。。。。。