12个月的工资表，如何汇总到一张表上

kiss8852

microyip 发表于 2017-11-9 21:35
字典匹配一下即可解决，论坛里有相类似案例可搜索

小白一个，第一次泡论坛，啥也不懂-   -

LMY123

字典同薄多表汇总，ACCESS

nsxlyj

以后把12个月的弄到一起，数据透视表解决

孤山月

数据透视表，多重合并计算即可解决。

419837499

mmlzh 发表于 2017-11-9 22:06
B2右拉，下拉
自行填写人名。

大师,　你提供的这公式对我的帮助也很大,　能劳烦你解读一下这段函数的意思吗? 谢谢!
INDIRECT("'15"&TEXT(COLUMN(A:A),"00")&"'!$B:$BF")

mizl167

我觉得这样好看些

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim ws As Worksheet
   
5.   Dim d As Object
   
6.   Set d = CreateObject("scripting.dictionary")
   
7.   For Each ws In Worksheets
   
8.     If IsNumeric(ws.Name) Then
   
9.       With ws
   
10.         n = Val(Right(ws.Name, 2)) + 1
    
11.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
13.         arr = .Range("a1").Resize(r, c)
    
14.         For j = 1 To UBound(arr, 2)
    
15.           If arr(1, j) = "应发合计" Then
    
16.             Exit For
    
17.           End If
    
18.         Next
    
19.         If j <= UBound(arr, 2) Then
    
20.           For i = 2 To UBound(arr)
    
21.             If Not d.exists(arr(i, 2)) Then
    
22.               ReDim brr(1 To 13)
    
23.               brr(1) = arr(i, 2)
    
24.             Else
    
25.               brr = d(arr(i, 2))
    
26.             End If
    
27.             brr(n) = brr(n) + arr(i, j)
    
28.             d(arr(i, 2)) = brr
    
29.           Next
    
30.         End If
    
31.       End With
    
32.     End If
    
33.   Next
    
34.   With Worksheets("汇总")
    
35.     .UsedRange.Offset(1, 0).ClearContents
    
36.     .Range("a2").Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
    
37.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
38.     .Range("a1:m" & r).Borders.LineStyle = xlContinuous
    
39.   End With
    
40.   
    
41. End Sub
    

复制代码

chxw68

详见附件。

chxw68

详见附件。

佛山小老鼠

楼主：帮你写半个小时的代码，你没听到你反馈问题解决了没有，建议你以后提问，别人回复你了，记得说声谢谢，最基本礼节