如何快速汇总多个工作表数据？

smxxjwc

2018秋和2019春两个表的数据汇总

鄂龙蒙

1. Sub 合并()
   
2.     Dim sh As Worksheet
   
3.     Dim d, ar, br(), sa, s, i, x, m%
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.    [A4:F10000] = Empty
   
6.    sa = Array("2018秋", "2019春")
   
7.     For x = 0 To 1
   
8.         For Each sh In Worksheets
   
9.             If sh.Name = sa(x) Then
   
10.                 ar = sh.Range("A3").CurrentRegion
    
11.                 For i = 2 To UBound(ar)
    
12.                     s = ar(i, 2)
    
13.                     If Len(s) Then
    
14.                         If d(s) = "" Then
    
15.                             m = m + 1
    
16.                             ReDim Preserve br(1 To 5, 1 To m)
    
17.                             d(s) = m
    
18.                             br(1, m) = m
    
19.                             br(2, m) = s
    
20.                             br(x + 3, m) = ar(i, 6)
    
21.                         Else
    
22.                             br(x + 3, d(s)) = br(x + 3, d(s)) + ar(i, 6)
    
23.                         End If
    
24.                     End If
    
25.                 Next
    
26.             End If
    
27.         Next
    
28.     Next
    
29.     For i = 1 To m
    
30.         br(5, i) = br(3, i) + br(4, i)
    
31.     Next
    
32.     [A4].Resize(m, 5) = Application.Transpose(br)
    
33.    Set d = Nothing
    
34. End Sub

复制代码

网海遨游

鄂龙蒙 发表于 2020-1-12 19:35

请教下：
[A4:F10000] = Empty
[A4:F10000] = ""
[A4:F10000].clear
三种情况下，哪个运行更快些？
谢谢！

opiona

http://club.excelhome.net/thread-1409141-1-1.html

smxxjwc

鄂龙蒙 发表于 2020-1-12 19:35

能否加点解说？