如何将多张表里同一字段数据按人汇总

xiaobing333

可以参考示例，如何将多张表里按月份划分有数字的那个字段汇总在薪酬统计1的表的对应字段下面呢？前面的表人名的顺序可能会不一样，而且示例里仅仅是三张表，实际情况是有好几十张表，人也特别多，有的月份可能多几个人有的月份少几个人，求大神能教一下。

一指禅62

1. Sub 汇总()
   
2.     Rem 警告：各表的字段顺序必须一致！！！！！
   
3.     Dim Sh As Worksheet, d As Object, arr, R&, i&
   
4.     Dim a(), n&, m&
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Rem 提取薪酬统计表的既有数据（姓名)
   
7.     Set Sh = Sheets("薪酬统计")
   
8.     R = Sh.Range("C65536").End(3).Row
   
9.     If R > 4 Then
   
10.         arr = Sh.Range("A5:N" & R)
    
11.         For i = 1 To UBound(arr)
    
12.             If Not d.Exists(arr(i, 3)) Then
    
13.                 n = n + 1: ReDim Preserve a(1 To 4, 1 To n)
    
14.                 d(arr(i, 3)) = n
    
15.             End If
    
16.         Next
    
17.     End If
    
18.     For Each Sh In ThisWorkbook.Worksheets
    
19.         If Sh.Name <> "薪酬统计" Then
    
20.             R = Sh.Range("B65536").End(3).Row
    
21.             If R < 4 Then Exit Sub
    
22.             arr = Sh.Range("A4:X" & R)
    
23.             For i = 1 To UBound(arr)
    
24.                 If Not d.Exists(arr(i, 2)) Then
    
25.                     n = n + 1: ReDim Preserve a(1 To 4, 1 To n)
    
26.                     d(arr(i, 2)) = n
    
27.                     a(1, n) = arr(i, 13)
    
28.                     a(2, n) = arr(i, 14)
    
29.                     a(3, n) = arr(i, 19)
    
30.                     a(4, n) = arr(i, 20)
    
31.                 Else
    
32.                     m = d.Item(arr(i, 2))
    
33.                     a(1, m) = a(1, m) + arr(i, 13)
    
34.                     a(2, m) = a(2, m) + arr(i, 14)
    
35.                     a(3, m) = a(3, m) + arr(i, 19)
    
36.                     a(4, m) = a(4, m) + arr(i, 20)
    
37.                 End If
    
38.             Next
    
39.         End If
    
40.     Next
    
41.     If n = 0 Then Exit Sub
    
42.     With Sheets("薪酬统计")
    
43.         .Range("C5").Resize(n, 1) = WorksheetFunction.Transpose(d.keys)
    
44.         .Range("I5").Resize(n, 4) = WorksheetFunction.Transpose(a)
    
45.     End With
    
46. End Sub

复制代码

一指禅62

示例.rar (18.95 KB, 下载次数: 38)

2018-8-31 09:37 上传

点击文件名下载附件

opiona

http://club.excelhome.net/thread-1409141-1-1.html

xiaobing333

一指禅62 发表于 2018-8-30 18:51

多谢大佬的回复，我研究下代码

xiaobing333

一指禅62 发表于 2018-8-30 18:51

不过我有个问题，为什么会变成点完汇总，I-L栏都会被汇总一样的数啊

一指禅62

xiaobing333 发表于 2018-8-31 09:33
不过我有个问题，为什么会变成点完汇总，I-L栏都会被汇总一样的数啊

我已发现纠正，请重新下载。

xiaobing333

一指禅62 发表于 2018-8-31 09:38
我已发现纠正，请重新下载。

大神能不能再请教点复杂的，按照我这个附件，你点开1，2月的公积金页面，能否把页面里面的数据各汇总到每个月的“薪酬统计2"的对应的I列，同时在”动态汇总“里把每个月的”薪酬统计2“里面的数据加总到动态汇总的I列里，求教

一指禅62

xiaobing333 发表于 2018-8-31 10:07
大神能不能再请教点复杂的，按照我这个附件，你点开1，2月的公积金页面，能否把页面里面的数据各汇总到每 ...

给一个建议吧：管理数据不是这么做的。

xiaobing333

一指禅62 发表于 2018-8-31 10:53
给一个建议吧：管理数据不是这么做的。

您这边建议大概能做成什么样呀