VBA多条件求和--求助！

iambeertan

各位大神，
因我日常使用的此报表数据量很大，将近10W行，目前是使用SUMPRODUCT函数取数，非常慢，请帮忙使用VBA代码编制下，非常感谢！

说明：
此电子档【欠料表.xlsx】有2个工作表，分别为sheet("排期")和sheet("欠料表明细")，需求如下：
1. sheet("排期")中黄色部分区域的数据从sheet("欠料表明细")，中获取
2. 排期中第4行目前已使用了SUMPRODUCT函数取值，需求将黄色部分的区域的区域使用VBA替代SUMPRODUCT
3. H4：当(欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000="40-机加件")*(欠料表明细!$I$3:$I$100000<>"70-带料委外")*(欠料表明细!$M$3:$M$100000>0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值
    I4：当((欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000="40-机加件")*(欠料表明细!$I$3:$I$100000<>"70-带料委外")*(欠料表明细!$M$3:$M$100000>0)都满足时，将(欠料表明细!$M$3:$M$100000))求和返回值
    J4：当(欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000<>"40-机加件")*(欠料表明细!$M$3:$M$100000>0)都满足时，
           将(欠料表明细!$AL$3:$AL$100000))求和返回值
   K4：当(欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000="40-机加件")*(欠料表明细!$I$3:$I$100000<>"70-带料委外")*(欠料表明细!$M$3:$M$100000>0)*(欠料表明细!$AB$3:$AB$100000>=0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值
    M4：当((欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000<>"40-机加件")*(欠料表明细!$M$3:$M$100000>0)*(欠料表明细!$AB$3:$AB$100000>=0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值
    O4：当((欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000="40-机加件")*(欠料表明细!$I$3:$I$100000="50-自制")*(欠料表明细!$AB$3:$AB$100000<0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值
    P4：当((欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000="40-机加件")*(欠料表明细!$I$3:$I$100000="60-机加件外购")*(欠料表明细!$AB$3:$AB$100000<0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值
    Q4：当(欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000="40-机加件")*(欠料表明细!$I$3:$I$100000="60-机加件外购")*(欠料表明细!$AA$3:$AA$100000<0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值
    R4：当((欠料表明细!$A$3:$A$100000=$A4)*(欠料表明细!$H$3:$H$100000<>"40-机加件")*(欠料表明细!$AB$3:$AB$100000<0)都满足时，将(欠料表明细!$AL$3:$AL$100000))求和返回值

排期中的黄色部分区域均是按第4行的规则一样使用VBA填满

iambeertan

顶一下，各位大神帮忙看下

iambeertan

顶一下，各位大神帮忙看下