如何多表格的数据汇总到一个表格？

无语EXCELHOME

如何多个表格汇总的一个表格中？
1.同一个工作簿中，有多个车间的表格，从C列到P列的格式一致。P列后面的还是有数据。
2.各个车间的人员还是有相同的。即一车间的人员，也可能在二车间出现。
3.将各车间的表，从C列到P列的数据求和汇总到一个表中。
汇总.rar (42.34 KB, 下载次数: 14)

2017-9-21 15:44 上传

点击文件名下载附件

老师，谢谢提供帮助。

zpy2

这种最好是用服务器的

CC例例

1. Sub test()
   
2.     Dim sh As Worksheet, d, arA, k, h(13), i%, x%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     [c2].CurrentRegion.Offset(1).ClearContents
   
5.     For Each sh In Worksheets
   
6.         If IsNumeric(Left(sh.Name, 1)) Then
   
7.             arA = sh.[a1].CurrentRegion
   
8.             For i = 2 To UBound(arA)
   
9.                 If Trim(arA(i, 3)) <> "" Then
   
10.                 If Not d.Exists(arA(i, 3)) Then ReDim k(13) Else k = d(arA(i, 3))
    
11.                 k(0) = arA(i, 3)
    
12.                 h(0) = "合计"
    
13.                 For x = 4 To 15
    
14.                     k(x - 3) = k(x - 3) + arA(i, x)
    
15.                     h(x - 3) = h(x - 3) + arA(i, x)
    
16.                 Next
    
17.                 d(k(0)) = k
    
18.                 End If
    
19.             Next
    
20.         End If
    
21.     Next
    
22.     d(h(0)) = h
    
23.     [c3].Resize(d.Count, 14) = Application.Rept(d.Items, 1)
    
24. End Sub

复制代码

CC例例

附件供参考

无语EXCELHOME

CC例例 发表于 2017-9-21 16:22

老师，谢谢！怎么送花给你了。为什么我一点击汇总，在行中间就会出现小计，在最下面行再出现一次合计。这样合计的数据就不对了啊

CC例例

无语EXCELHOME 发表于 2017-9-21 17:34
老师，谢谢！怎么送花给你了。为什么我一点击汇总，在行中间就会出现小计，在最下面行再出现一次合计。这 ...

呵，没仔细看，代码更正如下：

1. Sub test()
   
2.     Dim sh As Worksheet, d, arA, k, h(13), i%, x%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     [c2].CurrentRegion.Offset(1).ClearContents
   
5.     For Each sh In Worksheets
   
6.         If IsNumeric(Left(sh.Name, 1)) Then
   
7.             arA = sh.[a1].CurrentRegion
   
8.             For i = 2 To UBound(arA)
   
9.                 If Trim(arA(i, 1)) <> "" Then
   
10.                 If Not d.Exists(arA(i, 3)) Then ReDim k(13) Else k = d(arA(i, 3))
    
11.                 k(0) = arA(i, 3)
    
12.                 h(0) = "合计"
    
13.                 For x = 4 To 15
    
14.                     k(x - 3) = k(x - 3) + arA(i, x)
    
15.                     h(x - 3) = h(x - 3) + arA(i, x)
    
16.                 Next
    
17.                 d(k(0)) = k
    
18.                 End If
    
19.             Next
    
20.         End If
    
21.     Next
    
22.     d(h(0)) = h
    
23.     [c3].Resize(d.Count, 14) = Application.Rept(d.Items, 1)
    
24. End Sub

复制代码

无语EXCELHOME

CC例例 发表于 2017-9-21 18:09
呵，没仔细看，代码更正如下：

老师，非常感谢！完美解决。