求12个表数据汇总

ruhong18

,以工作簿名称命名,将除“汇总”外的12个工作表中的数据，根据第2行单元格的名称，重复名称的只要保留一个汇总就可以；每个分表的数据不相同，有的多列，有的少列，（列数可以增加）但最后都会有一个合计；

grf1973

1. Sub 汇总()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     ReDim arr(1 To Sheets.Count + 1, 1 To 100)
   
4.     r = UBound(arr)
   
5.     arr(1, 1) = "月份": arr(r, 1) = "合计"
   
6.     n = 1
   
7.     For i = 2 To r - 1
   
8.         With Sheets(i)
   
9.             arr(i, 1) = .Name
   
10.             cmax = .[iv2].End(xlToLeft).Column - 1
    
11.             For j = 1 To cmax
    
12.                 s = Trim(.Cells(2, j))
    
13.                 If Not d.exists(s) Then n = n + 1: d(s) = n: arr(1, n) = s
    
14.                 arr(i, d(s)) = .Cells(3, j)
    
15.                 arr(r, d(s)) = arr(r, d(s)) + .Cells(3, j)
    
16.             Next
    
17.         End With
    
18.     Next
    
19.     [a2].Resize(UBound(arr), n) = arr
    
20.     Cells(2, n + 1) = "合计"
    
21.     For i = 2 To r
    
22.         Cells(i + 1, n + 1).Formula = "=sum(rc2:rc[-1])"
    
23.     Next
    
24. End Sub
    

复制代码

ruhong18

grf1973 发表于 2021-2-19 16:04

谢谢，对了，就是这效果，感谢！祝您新春快乐！