多行汇总求和某列合并不重复项

liulang0808

转角处的沉思 发表于 2024-6-22 09:33
版主所描述的情况如果出现，只会出现如图这样的情况，这种情况下，想当于是要先局部F列求和，然后再对不 ...

如果楼主得问题已经得到解决，就不用再回复了
如果没有解决，建议重新更新附件，将可能得情况描述清楚，主要是F列数据求和，不同组合得求和规则是什么

chxw68

如果像图片中这种情况怎么统计呢？

转角处的沉思

chxw68 发表于 2024-6-22 09:46
如果像图片中这种情况怎么统计呢？

诸老师，你好，您截图的情况如果出现，第八行应该是没有的，类似以上截图效果，当A,D,G列都相同时需对这些行去重F列累加，当A,D,F列相同G列不同则对这些行仅去重G列合并（这种情况出现说明整体重复批量）

转角处的沉思

liulang0808 发表于 2024-6-22 09:37
如果楼主得问题已经得到解决，就不用再回复了
如果没有解决，建议重新更新附件，将可能得情况描述清楚， ...

版主好，暂未得到完美解决方案，附件应该没问题，更新描述下去重规则，去重求和针对A,D,G三列相同的情况，而仅去重但合并G列的情况为A,D,F三列均相同的情况执行。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Set d1 = CreateObject("scripting.dictionary")
   
7.     With Worksheets("sheet1")
   
8.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.         arr = .Range("a2:g" & r)
   
10.         For i = 1 To UBound(arr)
    
11.             xm = arr(i, 1) & "+" & arr(i, 4) & "+" & arr(i, 7)
    
12.             If Not d.exists(xm) Then
    
13.                 d(xm) = i
    
14.             Else
    
15.                 m = d(xm)
    
16.                 arr(m, 6) = arr(m, 6) + arr(i, 6)
    
17.             End If
    
18.         Next
    
19.         For Each aa In d.items
    
20.             xm = arr(aa, 1) & "+" & arr(aa, 4)
    
21.             If Not d1.exists(xm) Then
    
22.                 ReDim brr(1 To 7)
    
23.                 For j = 1 To UBound(arr, 2)
    
24.                     brr(j) = arr(aa, j)
    
25.                 Next
    
26.             Else
    
27.                 brr = d1(xm)
    
28.                 brr(7) = brr(7) & "," & arr(aa, 7)
    
29.             End If
    
30.             d1(xm) = brr
    
31.         Next
    
32.                
    
33.     End With
    
34.     With Worksheets("结果")
    
35.         .UsedRange.Offset(1, 0).Clear
    
36.         .Range("a2").Resize(d1.Count, 7) = Application.Transpose(Application.Transpose(d1.items))
    
37.     End With
    
38. End Sub
    

复制代码

转角处的沉思

chxw68 发表于 2024-6-22 10:12

感谢诸老师帮助，就是要这样的效果

sdytsxd991122

wps

转角处的沉思

sdytsxd991122 发表于 2024-6-22 10:38
wps

感谢帮助，效果可以的。

chxw68

参与一下。

quqiyuan

转角处的沉思 发表于 2024-6-22 09:18
感谢帮助，F列累加的时候应该多个判断，就是如果A,D,G列值都相同时需要累加，而A,D相同仅G不同说明重复， ...