VBA多条件汇总（需要汇总多列的相关数量）

孤寂永恒

想通过VBA，A2和B2是单独的两个条件，当B2销售员为空的时候，就汇总整个销售部（如后勤部所有销售员）的数据。当A2为空，B2有销售员时就汇总该销售员的数据；A2和B2为手工输入的，有且仅会存在一个，不会同时需要！

即上述数据需要满足：销售部&订单类型&产品名称或者销售员&订单类型&产品名称，汇总表A6:B11为固定数据

需要按原始数据的表格中的数据汇总到汇总表内

底下的数据是按销售部&客户&产品名称或者销售员&客户&产品名称，汇总数据A21根据汇总表实际数据增减

不知道为什么

又是一道作业题啊

孤寂永恒

不知道为什么 发表于 2018-7-25 20:05
又是一道作业题啊

就是因为不会啊

jiminyanyan

最近汇总题目很多呀。。。

孤寂永恒

jiminyanyan 发表于 2018-7-25 21:13
最近汇总题目很多呀。。。

我的销售员和销售部门都是固定单元格的，想用数组做，但是单元格的值不知道怎么放进去，出来了，累加的代码我也不会

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     ar = Sheet1.[a1].CurrentRegion
   
4.     ReDim br(1 To UBound(ar), 1 To 28)
   
5.     cr = br
   
6.     For i = 2 To UBound(ar)
   
7.         If Len([a2]) And Len([b2]) = 0 And ar(i, 2) = [a2] Then
   
8.             s = ar(i, 1) & ar(i, 4)
   
9.             If d(s) = "" Then
   
10.                 m = m + 1: d(s) = m
    
11.                 br(m, 1) = ar(i, 1)
    
12.                 br(m, 2) = ar(i, 4)
    
13.                 For j = 7 To UBound(ar, 2)
    
14.                     br(m, j - 4) = ar(i, j)
    
15.                 Next
    
16.             Else
    
17.                 br(d(s), 1) = ar(i, 1)
    
18.                 br(d(s), 2) = ar(i, 4)
    
19.                 For j = 7 To UBound(ar, 2)
    
20.                     br(d(s), j - 4) = br(d(s), j - 4) + ar(i, j)
    
21.                 Next
    
22.             End If
    
23.         End If
    
24.         If Len([a2]) = 0 And Len([b2]) And ar(i, 6) = [b2] Then
    
25.             s = ar(i, 3) & ar(i, 4)
    
26.             If d(s) = "" Then
    
27.                 n = n + 1: d(s) = n
    
28.                 cr(n, 1) = ar(i, 3)
    
29.                 cr(n, 2) = ar(i, 4)
    
30.                 For j = 7 To UBound(ar, 2)
    
31.                     cr(n, j - 4) = ar(i, j)
    
32.                 Next
    
33.             Else
    
34.                 cr(d(s), 1) = ar(i, 3)
    
35.                 cr(d(s), 2) = ar(i, 4)
    
36.                 For j = 7 To UBound(ar, 2)
    
37.                     cr(d(s), j - 4) = cr(d(s), j - 4) + ar(i, j)
    
38.                 Next
    
39.             End If
    
40.         End If
    
41.     Next
    
42.     If m Then [a6:ab19] = "": [a6].Resize(m, 28) = br
    
43.     If n Then [a21:ab35] = "": [a21].Resize(n, 28) = cr
    
44. End Sub

复制代码