工作表多个Sheet1汇总

LIUZHU

努力学习168 发表于 2024-5-29 20:09
感谢，我的是office，下次安排试下。

那就改成VBA

LIUZHU

VBA代码参与下

1. Option Explicit
   
2. 
   
3. Sub 汇总()
   
4.     Dim arr(), brr(), crr()
   
5.     Dim n&, m&, r1&, i&, j&, dkey
   
6.     Dim sh As Worksheet
   
7.     Dim dic1 As New Dictionary
   
8.     Dim dic2 As New Dictionary
   
9.    
   
10.     For Each sh In Worksheets
    
11.         If (Not sh.Name Like "*汇总*") * (sh.Range("a1").Value <> "") Then
    
12.             n = WorksheetFunction.Max(n, WorksheetFunction.CountA(sh.Range("1:1")))
    
13.             dic1(sh.Name) = ""
    
14.         End If
    
15.     Next sh
    
16.     For Each dkey In dic1.Keys
    
17.         ReDim brr(1 To n)
    
18.         arr = Sheets(dkey).Range("a1").CurrentRegion.Value
    
19.         For i = 1 To UBound(arr)
    
20.             m = m + 1
    
21.             For j = 1 To UBound(arr, 2)
    
22.                 brr(j) = arr(i, j)
    
23.             Next j
    
24.             dic2(m) = brr
    
25.         Next i
    
26.     Next dkey
    
27.     crr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(dic2.Items))
    
28.     Sheets("某某车企汇总").Activate
    
29.     Range("a1").Resize(UBound(crr), UBound(crr, 2)).Value = crr
    
30. End Sub
    

复制代码

LIUZHU

包含VBA代码的附件也上传下