在字典中加入日期条件

maggyren19900

按照日期条件汇总求和，具体见附件，自己写了字典但是不知道怎么加上日期条件，虚心求教
附件是模拟，就是想知道字典的条件两张表是对等的，那么遇到类似不对等的条件或者是额外判断条件，应该怎么加？

网海遨游

Sub zidian()
    Set d = CreateObject("Scripting.Dictionary")
    arr = Sheets("明细").Range("A1:e" & Sheets("明细").Cells(Rows.Count, 1).End(3).Row)
    For i = 2 To UBound(arr)
        s = Month(arr(i, 1)) & "|" & arr(i, 2) & "|" & arr(i, 3)
        d(s) = d(s) + arr(i, 5)
    Next
    brr = Sheets("汇总").Range("b3:f" & Sheets("汇总").Cells(Rows.Count, 3).End(3).Row)
    For i = 2 To UBound(brr)
        s1 = Month(Replace(brr(1, 5), "数量", "")) & "|" & brr(i, 2) & "|" & brr(i, 3)
        brr(i, 5) = d(s1)
    Next
    Sheets("汇总").Range("b3").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

maggyren19900

网海遨游 发表于 2020-3-17 19:36
Sub zidian()
    Set d = CreateObject("Scripting.Dictionary")
    arr = Sheets("明细").Range("A1:e ...

感谢老师，思路果然很重要