如何将内容相同的多行所对应的一列数据加总，并放在另一张表中

董叮当

请问如何将内容相同的多行所对应的一列数据加总，并放在另一张表中。意思是：比如筛选第一列等于2007，并且第二列等于12，并且第三列等于1，并且第四列等于40等行数据，并将同时满足这些条件的行数据中第六列数据加总，形成的新数据放在表2中，格式同表1
部分数据见附件
之前数据量少的时候我写的还可以计算一下，但是单列数据超过50万的时候就溢出了，换了数据类型后结果还是算不好，小白刚开始学，急求大神帮忙，谢谢啦！

lss001

Sub aa()'用数组处理
Application.ScreenUpdating = False
Dim br()'不声明数据类型以免溢出
'请把4个条件放到以L列到O列第2行开始的单元格中

x = Cells(Rows.Count, 1).End(xlUp).Row
y = Cells(Rows.Count, 12).End(xlUp).Row
ar = Range("a2:f" & x)
ReDim br(1 To x, 1 To 1)
For j  = 1 To  y - 1
For i = 1 To x - 1
If ar(i, 1) = Range("l" & j)  _
And ar(i, 2) = Range("m" & j)  _
And ar(i, 3) = Range("n" & j)  _
And ar(i, 4) = Range("o" & j)  then
br(i, 1) = br(i,  1) +  ar(i, 6)'此处更改
End If
Next
Ne×t

Range("q2:q" & y) = br'结果放在Q列从第2行开始
Application.ScreenUpdating = True
End Sub

董叮当

lss001 发表于 2017-3-26 16:52
Sub aa()'用数组处理
Application.ScreenUpdating = False
Dim br()'不声明数据类型以免溢出

谢谢啦，可能我没讲清楚需求，前四列只是作为我选取的条件，最后加总的只有第六列的数据
上文中说的选取2007、12、1、40只是一个例子，你给的写法中是要每次都要改一下这个选取条件吗，还是我小白没理解算法。。。

lss001

董叮当 发表于 2017-3-26 20:31
谢谢啦，可能我没讲清楚需求，前四列只是作为我选取的条件，最后加总的只有第六列的数据
上文中说的选取 ...

代码按你要求已改，见上楼，运行前把条件写在L列到O列的第2行开始的单元格中，4个条件都填上，条件可以写多行！！！

mzbao

我怎么感觉直接用数据透视表就可以了

董叮当

lss001 发表于 2017-3-26 23:10
代码按你要求已改，见上楼，运行前把条件写在L列到O列的第2行开始的单元格中，4个条件都填上，条件可以写 ...

好的，我试试，谢谢啦

董叮当

mzbao 发表于 2017-3-26 23:13
我怎么感觉直接用数据透视表就可以了

试过，只是有四个条件，没试成功。。。