小白请教一个多表指定列汇总的问题

huyonghong

想将汇总表上第一列存序号，第二列存表名，三列以后汇总其他表的对应数值字段。求各位大师指点一下。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr()
   
4.   ReDim brr(1 To Worksheets.Count - 1, 1 To 7)
   
5.   m = 0
   
6.   For Each ws In Worksheets
   
7.     If ws.Name <> "汇总" Then
   
8.       With ws
   
9.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.         m = m + 1
    
11.         brr(m, 1) = m
    
12.         brr(m, 2) = ws.Name
    
13.         brr(m, 3) = .Cells(r - 3, 4)
    
14.         brr(m, 4) = .Cells(r - 3, 7)
    
15. 
    
16.       End With
    
17.     End If
    
18.   Next
    
19.   With Worksheets("汇总")
    
20.     .UsedRange.Offset(3, 0).Clear
    
21.     .Range("a4").Resize(UBound(brr), UBound(brr, 2)) = brr
    
22.   End With
    
23. End Sub
    

复制代码

chxw68

详见附件。

huyonghong

chxw68 发表于 2021-8-28 21:30
详见附件。

chxw68,谢谢您的回复！可能是我没描述清楚，汇总表中欠违约金没有汇总到，根据上报汇总表的需要，想做成汇总表的第三行的C列开始直到本行的倒数第三列作为字段名在分表中提取数据进行汇总。汇总表的字段顺序不固定，字段数量不固定（最多11个），汇总时在各表中有的字段就进行汇总，不使用表尾合计数。有没有方法实现呢？

huyonghong

感谢大家关注！找到一种方法啦！分享