多条件求和

彭庆伟

每天累计数据达30万行之多，用SUMIFS多条件求和，表格很卡，会卡半小时左右，希望VBA通过字典实现多条件求和，详情见附件，谢谢！

彭庆伟

不知道发帖时附件有没有上传成功，再次上传下，纯小白，求大神赐教代码，有注释的更好，万分感谢！

qdtzq

个人拙见，数据透视表就能解决吧

cjc209

Sub 过程名()
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    For i = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row
        If Sheet1.Cells(i, 1) <> "" And Sheet1.Cells(i, 2) = "Y" Then
            关键字 = Sheet1.Cells(i, 1) & Sheet1.Cells(i, 3)
            dic(关键字) = dic(关键字) + Sheet1.Cells(i, 5)
        End If
        If Sheet1.Cells(i, 1) <> "" Then
            关键字 = Sheet1.Cells(i, 4) & Sheet1.Cells(i, 3)
            dic(关键字) = dic(关键字) + Sheet1.Cells(i, 5)
        End If
    Next
    jg = dic("江苏省区2023/2/18")
    For i = 4 To Sheet2.Range("A" & Rows.Count).End(xlUp).Row
        If Sheet2.Cells(i, 1) <> "" And Left(Sheet2.Cells(i, 1).Value, 2) <> "库房" Then
            For j = 2 To 6
                关键字1 = Sheet2.Cells(i, 1) & Sheet2.Cells(1, j)
                Sheet2.Cells(i, j) = dic(关键字1)
            Next
        End If
    Next
End Sub

ykcbf1100

请参考附件。。。

半百

清风竹-

彭庆伟 发表于 2023-3-1 15:38
不知道发帖时附件有没有上传成功，再次上传下，纯小白，求大神赐教代码，有注释的更好，万分感谢！

请看附件。

tanglf188

看看结果对吗？对就传代码。

gbgbxgb

附件供参考。

彭庆伟

qdtzq 发表于 2023-3-1 15:57
个人拙见，数据透视表就能解决吧

这个只是举个例子，实际工作中，数据很大的，数据累积，一个表几十万的数据，透视的话，表会非常卡，谢谢！