求助，多条件、多列分类汇总，并生成新表。

白蝙蝠

求助各位大神，想实现多条件分类汇总，实现同一季度中，相同公司名称的多列数据求和汇总，并将结果直接分别写到不同季度的分类汇总表中。

白蝙蝠

参考了论坛里面的帖子，好像都是数组实现的，没看太明白，哪位大神帮忙后，请解释一下语句，我多多学习，谢谢各位。

microyip

http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = [a1].CurrentRegion
   
5.     Sheets("Q1分类汇总").UsedRange.ClearContents
   
6.     Sheets("Q2分类汇总").UsedRange.ClearContents
   
7.     [c1:n1].Copy Sheets("Q1分类汇总").[a1]
   
8.     [c1:n1].Copy Sheets("Q2分类汇总").[a1]
   
9.     For j = 2 To UBound(arr)
   
10.         If Len(arr(j, 1)) > 0 Then
    
11.             shnm = "Q1分类汇总"
    
12.             If arr(j, 1) = "Q2" Then
    
13.                 shnm = "Q2分类汇总"
    
14.             End If
    
15.             If d.exists(arr(j, 1) & arr(j, 3)) Then
    
16.                 r = d(arr(j, 1) & arr(j, 3))
    
17.             Else
    
18.                 r = Sheets(shnm).Cells(Rows.Count, 1).End(3).Row + 1
    
19.                 d(arr(j, 1) & arr(j, 3)) = r
    
20.             End If
    
21.             With Sheets(shnm)
    
22.                 .Cells(r, 1) = arr(j, 3)
    
23.                 For i = 4 To 14
    
24.                     .Cells(r, i - 2) = arr(j, i) + .Cells(r, i - 2)
    
25.                 Next i
    
26.             End With
    
27.         End If
    
28.     Next j
    
29.     Application.ScreenUpdating = True
    
30. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

白蝙蝠

liulang0808 发表于 2018-7-12 08:19
附件内容供参考。。。。。。

非常感谢，我先学习一下，对这块真不在行。感谢！

白蝙蝠

liulang0808 发表于 2018-7-12 08:19
附件内容供参考。。。。。。

我学习了一下，同时运行了几次，可能是因为我的数据量比较大吧，提示“自动化（automation）错误“。这是什么原因呀？是不是这种方法对数据量的大小有要求？或者可不可以调用SQL计算呢，SQL计算会快一点吗？