格式统一的分表汇总到总表

QINGSIWEIWEI

还是同一工作簿汇总问题，在论坛上看了很多，试了半天始终不得要领，还请各位大神帮帮忙。分表的格式都是一样的，是每个小组的情况。需要根据小组情况汇总到汇总表，小组数据会有变动，总表也跟着变动。
先谢谢各位大神了

abc123281

vba才能实现    所以应该到vba板块求助

QINGSIWEIWEI

abc123281 发表于 2018-4-14 11:50
vba才能实现    所以应该到vba板块求助

哦，好的

abc123281

呵呵  不用了看到你是新同学   第一次发帖
我帮你写一个

1. Sub 汇总()
   
2. Dim arr, brr(1 To 10000, 1 To 20)
   
3. Dim ws As Worksheet
   
4. For Each ws In Worksheets
   
5.   If ws.Name <> "汇总" Then
   
6.      With ws
   
7.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
8.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
9.         arr = .Range("a1").Resize(r, c)
   
10.         For i = 2 To r
    
11.           n = n + 1
    
12.           For j = 1 To c
    
13.              brr(n, j) = arr(i, j)
    
14.           Next
    
15.         Next
    
16.      End With
    
17.    End If
    
18. Next
    
19. With Worksheets("汇总")
    
20.   .[a2].Resize(n, UBound(brr, 2)) = brr
    
21. End With
    
22. MsgBox "OK !"
    
23. End Sub

复制代码

abc123281

456汇总abc123.rar (43.72 KB, 下载次数: 73)

2018-4-14 12:18 上传

点击文件名下载附件

QINGSIWEIWEI

abc123281 发表于 2018-4-14 12:14
呵呵  不用了看到你是新同学   第一次发帖
我帮你写一个

谢谢大神，我消化一下