如何用VBA实现同列下相同名称值合并，且对应列的值求和汇总

鹦鹉好烦猫

请教各位大侠，我想用一段VBA代码实现：把C列（项目名称）下的重名值合并，并相应对G列（工程量）及J列（合价）的对应值求和，从而形成一张新的汇总表。

liulang0808

楼主可以考虑使用字典处理
以下字典案例，可以参考下的
http://club.excelhome.net/thread-1385473-1-1.html

鹦鹉好烦猫

liulang0808 发表于 2017-12-20 13:12
楼主可以考虑使用字典处理
以下字典案例，可以参考下的
http://club.excelhome.net/thread-1385473-1-1.h ...

版主你好 我看了那些帖子 没有和我这条内容相符的 用不上，还请大侠针对本帖解答。

liulang0808

鹦鹉好烦猫 发表于 2017-12-20 13:26
版主你好 我看了那些帖子 没有和我这条内容相符的 用不上，还请大侠针对本帖解答。

那个链接，是一些实例，可以参考的，无法保证与楼主的需求一致
建议楼主结合附件内容，举例说明具体需求
目前附件C列有重复内容吗？

LMY123

同薄单表分类汇总

鹦鹉好烦猫

liulang0808 发表于 2017-12-20 13:36
那个链接，是一些实例，可以参考的，无法保证与楼主的需求一致
建议楼主结合附件内容，举例说明具体需求 ...

版主你好 C列的值有很多是重复的，虽然都是电缆 但是后边的字母数字型号有很多还是重复的 需要进行合并 ，我想借用以下这段代码，要怎样改呢？Sub ac()
   Dim dic, arr, i As Long
   Set dic = CreateObject("scripting.dictionary")
   arr = [a1].CurrentRegion
   For i = 1 To UBound(arr)
      dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
   Next
      [d1].Resize(dic.Count, 2) = WorksheetFunction.Transpose(Array(dic.keys, dic.items))
End Sub

liulang0808

鹦鹉好烦猫 发表于 2017-12-20 14:18
版主你好 C列的值有很多是重复的，虽然都是电缆 但是后边的字母数字型号有很多还是重复的 需要进行合并  ...

请楼主结合附件说明下
目前楼主的需求不是太明白

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("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:j" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       If Not d.exists(arr(i, 3)) Then
    
11.         ReDim brr(1 To 3)
    
12.         brr(1) = arr(i, 3)
    
13.       Else
    
14.         brr = d(arr(i, 3))
    
15.       End If
    
16.       brr(2) = brr(2) + arr(i, 7)
    
17.       brr(3) = brr(3) + arr(i, 10)
    
18.       d(arr(i, 3)) = brr
    
19.     Next
    
20.   End With
    
21.   With Worksheets("sheet2")
    
22.     .Range("a2").Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
    
23.   End With
    
24. End Sub
    

复制代码

duquancai

手机上网中，看你描述，就是字典的标准用法，分类汇总

chxw68

字典法汇总，供楼主参考。