VBA代码计算思维问题求助？

透视表

1、就是按照单元格A4去查找A列里面等于A4的，B4去查找B列里面等于4的，AZ4去查找AZ列里面 小于或等于AZ4的 条件都成立就 汇总AO列的数据和
2、函数公式：=SUMIFS(AO:AO,A:A,A4,B:B,B4,AZ:AZ,"<="&AZ4)

透视表

朱荣兴 发表于 2014-11-22 23:10
似乎用sumproduct函数可以解决

我知道函数可以解决，因为函数太卡，数据太多！ 用函数不适合！所以才选择用VBA

qy1219no2

透视表 发表于 2014-11-22 23:20
我知道函数可以解决，因为函数太卡，数据太多！ 用函数不适合！所以才选择用VBA

结果放在哪列中？？？？

qy1219no2

试试这个代码。结果放在53列。
其实也是使用SUMIFS函数，只是先对“货号”进行排序后，缩小了函数计算范围（仅对相同货号的区域进行条件求和），如果能知道每种“货号”最多可能出现的次数，则代码还可以进一步提高运算速度。

1. Sub macSumIfs()
   
2.     Dim nR&, i&, j%, sj()
   
3.     nR = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     If nR < 4 Then Exit Sub
   
5.     ReDim sj(nR - 4, 0)
   
6.     Application.ScreenUpdating = False
   
7.     With [iv4].Resize(nR - 3, 1)
   
8.         .Formula = "=Row()-3"
   
9.         .Value = .Value
   
10.     End With
    
11.     [a4].Resize(nR - 3, 256).Sort key1:=[a4].Resize(nR - 3, 1)
    
12.     i = 4
    
13.     Do While i <= nR
    
14.         nRec = Application.CountIf(Range(Cells(i, 1), Cells(nR, 1)), Cells(i, 1))
    
15.         For j = 1 To nRec
    
16.             sj(i + j - 5, 0) = Application.SumIfs(Cells(i, 41).Resize(nRec, 1), _
    
17.                                     Cells(i, 2).Resize(nRec, 1), Cells(i + j - 1, 2), _
    
18.                                     Cells(i, 52).Resize(nRec, 1), "<=" & Cells(i + j - 1, 52))
    
19.         Next
    
20.         i = i + nRec
    
21.     Loop
    
22.     [ba4].Resize(nR - 3, 1) = sj
    
23.     [a4].Resize(nR - 3, 256).Sort key1:=[iv4].Resize(nR - 3, 1)
    
24.     [iv1].EntireColumn.Delete
    
25.     Application.ScreenUpdating = True
    
26. End Sub

复制代码

透视表

qy1219no2 发表于 2014-11-23 00:43
试试这个代码。结果放在53列。
其实也是使用SUMIFS函数，只是先对“货号”进行排序后，缩小了函数计算范围 ...

我已经改过来了，全部用了字典！用了12个字典。