多个表的某一列合并至一个表，并合并计算

Keyman.Huang

大神们。
小弟请教一个问题。
如下图，我有两个sheet表，分别统计了对应的项目号和金额，

现在我要做汇总，做成如下图所示的，就是把前面两个Sheet表里的项目号和金额进行统计，一样的项目号进行合并，对应金额进行累计


由于后期还会增加sheet表，所以统计的函数要求能方便扩展至新增的sheet表，还请大神出手相助，不胜感激

abc123281

1. Sub 统计()
   
2. Dim arr, brr(1 To 1000, 1 To 3)
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For Each ws In Worksheets
   
5.    If ws.Name <> "统计" Then
   
6.        With ws
   
7.           rw = .[c65536].End(3).Row
   
8.           arr = .Range("a2:c" & rw)
   
9.           For i = 1 To UBound(arr)
   
10.              If Not d.exists(arr(i, 3)) Then
    
11.                  n = n + 1
    
12.                  d(arr(i, 3)) = n
    
13.                  brr(n, 1) = n
    
14.                  brr(n, 2) = arr(i, 3)
    
15.                  brr(n, 3) = arr(i, 2)
    
16.              Else
    
17.                  m = d(arr(i, 3))
    
18.                  brr(m, 3) = brr(m, 3) + arr(i, 2)
    
19.              End If
    
20.           Next
    
21.        End With
    
22.     End If
    
23. Next
    
24. Worksheets("统计").Activate
    
25. [e2].Resize(n, 3) = brr
    
26. End Sub

复制代码

abc123281

列合并abc123.rar (18.79 KB, 下载次数: 14)

2018-2-9 20:19 上传

点击文件名下载附件

Keyman.Huang

abc123281 发表于 2018-2-9 20:19

太牛了！非常感谢！