求一段多条件求和汇总代码,数据量大不想用公式公式解决

zhangcheng6688

lizhipei78 发表于 2024-5-7 22:21
经典一维转二维，用三个字典最简单最好理解

老师，能否给个原码，谢谢

全党

zhangcheng6688 发表于 2024-5-9 07:18
老师，能否给个原码，谢谢

按照3个字典改好了，试试。。。。。。。。。

zhangcheng6688

全党 发表于 2024-5-9 08:56
按照3个字典改好了，试试。。。。。。。。。

收到，谢谢

无关岁月

凑个热闹

求一段多条件求和汇总代码,数据量大不想用公式SUMPRODUCT。.7z (16.82 KB, 下载次数: 17)

2024-5-9 09:31 上传

点击文件名下载附件

sulli112

cyq4896 发表于 2024-5-8 09:58
参与 一下...

您好，想请教一下我加多了B列数据套餐，然后改了图片红色框架的数据，为啥运行没有反应呢？请问要怎么修改呢，谢谢

sulli112

leeson7502 发表于 2024-5-8 09:30
参与一下，数据区域Change，汇总区域自动更新。

您好，冷水泡茶老师。我想问问如果我像图片红色框架那里，增加了一个条件，需要怎么修改呢，谢谢

cyq4896

sulli112 发表于 2024-5-9 09:45
您好，想请教一下我加多了B列数据套餐，然后改了图片红色框架的数据，为啥运行没有反应呢？请问要怎么修 ...

Sub test()
    Set dic = CreateObject("scripting.dictionary")
    arr = [a2].CurrentRegion
    For i = 2 To UBound(arr)
        xm = arr(i, 1) & arr(i, 2) & arr(i, 3)
        If Not dic.exists(xm) Then
            dic(xm) = arr(i, 4)
        Else
            dic(xm) = dic(xm) + arr(i, 4)
        End If
    Next
    Range("j3:l" & Rows.Count) = ""
    brr = [h1].CurrentRegion
    For i = 3 To UBound(brr)
        For j = 3 To UBound(brr, 2)
            xm = brr(i, 1) & brr(i, 2) & brr(2, j)
            If dic.exists(xm) Then
                brr(i, j) = dic(xm)
            End If
        Next
    Next
    [h1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

cyq4896

改好了请试试

sulli112

cyq4896 发表于 2024-5-9 11:37
改好了请试试

您好，可以帮忙解答红色框框的疑问吗。谢谢

cyq4896

sulli112 发表于 2024-5-9 12:06
您好，可以帮忙解答红色框框的疑问吗。谢谢

l是最后一列，j是从数字数据列开始