双条件求和 具体的看附件

Elisa胖妹

附件1： 双条件求和NO1 中的VBA 我是从网上找到的，但是其是在一个表格中 求和的。         目前我想在 表格2 中 把 表格1的数据提取出来，不会写了。求大神们帮助下。
附件2：出库数据汇总 是我这真实想解决的问题。把出库情况表中 每天 各个产品的数量 从 出库每日明细数据 表中对应的 D 列 求和。

看了半天附件1中的VBA 都不太明白，望大神们帮助下，十分感谢！！！！

用SUMIFS 太慢了，我这数据量太大，一天的数据量将近1500，30天要好4万出头。重新统计一次要好几分钟。
如果有大神直接帮忙改附件2的话，别忘记把对应区域的 sumifs 去掉

Elisa胖妹

来人帮忙哦

Elisa胖妹

谢谢 大神的帮忙  我试下

Elisa胖妹

朱荣兴 发表于 2018-9-28 09:15
Sub 双条件求和()
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.di ...

谢谢你的帮忙。测试成功了，有一个小小的问题，数据在娶过来的时候，是不是得先把原来的数据清除了

Elisa胖妹

朱荣兴 发表于 2018-9-28 09:15
Sub 双条件求和()
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.di ...

运行后  出库情况 表格中的C列（求平均值） 和E列（除法）的 运算 没有了

Elisa胖妹

朱荣兴 发表于 2018-9-28 21:40
只考虑的的你所说的取数，其它的没考虑

Private Sub CommandButton1_Click()
    Set d = CreateObject("scripting.dictionary")
    Set dic = CreateObject("scripting.dictionary")
    rs = Sheets("出库情况").Cells(Rows.Count, 1).End(xlUp).Row
    arr1 = Sheets("出库情况").Range("a7:a" & rs)
    arr = Sheets("出库情况").Range("g7:ak" & rs)
   
    Sheets("出库情况").Range("g7:ak" & rs).Select
    Selection.ClearContents
   
    For i = 2 To UBound(arr1)
        d(Trim(arr1(i, 1))) = i
    Next i
    For j = 1 To UBound(arr, 2)
        dic(Trim(arr(1, j))) = j
    Next j
    brr = Sheets("出库每日明细数据").[a1].CurrentRegion

    For i = 2 To UBound(brr)
        m = d(Trim(brr(i, 2)))
        n = dic(Trim(brr(i, 1)))
    If m <> "" And n <> "" Then
        arr(m, n) = brr(i, 4)
    End If
    Next i
    Sheets("出库情况").Range("g7:ak" & rs) = arr
End Sub

自己改了下  不知道对不对