[已解决]多条件分类汇总的VBA代码求助

安全网

求助将另外一个工作薄内的数据按照多个条件分类汇总，不用打开另外一个工作薄也可以运行宏

最佳答案

月排行榜 / 总排行榜

grf1973

2015-8-26 10:48

请看附件。

跳转到最佳答案楼层

grf1973

1. Sub 汇总()
   
2.     Application.ScreenUpdating = False
   
3.     Dim wb As Workbook
   
4.     Set wb = Workbooks.Open(ThisWorkbook.Path & "" & "数据表.xls")  '读入
   
5.     arr = wb.Worksheets(1).[a1].CurrentRegion
   
6.     wb.Close False
   
7.    
   
8.     Dim brr(1 To 10000, 1 To 14)
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     For i = 2 To UBound(arr)
    
11.         x = arr(i, 3) & "," & arr(i, 6)
    
12.         If Not d.exists(x) Then
    
13.             n = n + 1
    
14.             d(x) = n
    
15.             brr(n, 1) = arr(i, 3): brr(n, 2) = arr(i, 6)
    
16.         End If
    
17.         If arr(i, 11) > 0 Then    '数量大于0，开始统计
    
18.             p = d(x)
    
19.             yf = arr(i, 13)   '月份
    
20.             If Val(yf) >= 1 And Val(yf) <= 12 Then brr(p, Val(yf) + 2) = brr(p, Val(yf) + 2) + arr(i, 11)
    
21.         End If
    
22.     Next
    
23.    
    
24.     [a4].Resize(10000, 14).ClearContents         '输出
    
25.     [a4].Resize(n, 14) = brr
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

grf1973

请看附件。