求助各位高手，一个思路

到处乱逛

各位好 ！

工作中要统计各产品的销量，有些是组合销售的，但是销量统计要分拆到单品。

举个例子，
A是销量记录，礼盒1、2 是各种水果的组合，
B是组合明细，组合里的产品与单独销售的产品没有关系（比如礼盒2的饼干，只会出现在礼盒里，不会单独零售）。而且每种组合的品种数也没有一定。礼盒1是2种，礼盒2是3种，也许后续推出礼盒3是8种、9 种，都有可能。
C是按单个品种后的销量统计。

希望通过A、B 2个表，能自动得到C表的统计数据。我想通过PQ合并数据，但是对于把组合销量拆分到单个品种的转换，生成能让QP处理的源数据没有思路。
B表的格式没有要求，只要能记录组合的信息就好。

诉求是能自动得到数据，不需要其他额外操作。A表数据做好，直接点 数据-刷新，就能得到C表结果。


希望能得到各位高手指点，多谢！

3190496160

Sub 统计()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim cr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With ActiveSheet
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b2:c" & r)
    rs = .Cells(Rows.Count, 6).End(xlUp).Row
    br = .Range("e2:g" & rs)
    ReDim cr(1 To 1000, 1 To 2)
    For i = 3 To UBound(br)
        If Trim(br(i, 1)) = "" Then
            br(i, 1) = br(i - 1, 1)
        End If
    Next i
    For i = 4 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            If InStr(ar(i, 1), "礼盒") = 0 Then
                t = d(Trim(ar(i, 1)))
                If t = "" Then
                    k = k + 1
                    d(Trim(ar(i, 1))) = k
                    t = k
                    cr(k, 1) = ar(i, 1)
                End If
                cr(t, 2) = cr(t, 2) + ar(i, 2)
            Else
                zd = Trim(ar(i, 1))
                For s = 3 To UBound(br)
                    If Trim(br(s, 1)) = zd Then
                        t = d(Trim(br(s, 2)))
                        If t = "" Then
                            k = k + 1
                            d(Trim(br(s, 2))) = k
                            t = k
                            cr(k, 1) = br(s, 2)
                        End If
                        cr(t, 2) = cr(t, 2) + ar(i, 2) * br(s, 3)
                    End If
                Next s
            End If
        End If
    Next i
    ws = .Cells(Rows.Count, 9).End(xlUp).Row
    If ws > 3 Then .Range("i3:jj" & ws) = Empty
    .[i3].Resize(k, 2) = cr
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

例.rar (17.73 KB, 下载次数: 7)

2023-10-4 22:35 上传

点击文件名下载附件

剑指E

1. =LET(x,ROW($4:$99),SUMIF(B:B,I4,C:C)+SUM((F$4:F$99=I4)*MMULT((LOOKUP(x,IF(E$4:E$99<>"",x),E$4:E$99)=TOROW(B$5:B$999))*TOROW(C$5:C$999)*G$4:G$99,ROW($5:$999)^0)))

复制代码

剑指E

liyh67

通过PQ合并数据,直接点 数据-刷新，就能得到C表结果 例.zip (16.83 KB, 下载次数: 8)

2023-10-5 16:58 上传

点击文件名下载附件

洋务德雷

把AB两种情况编辑表格放到一个表格内不就可以了吗?然后使用数据透视表就自动汇总了。
调整一下表格的事情，不需要编辑程序就可以搞定。何乐而不为呢？

hcm19522

I2{=SUMIF(A:A,H2,B:B)+SUM(MMULT((A$2:A$8=TRANSPOSE(LOOKUP(ROW($2:$10),ROW($2:$10)/(D$2:D$10<>""),D$2:D$10)))*TRANSPOSE(E$2:E$10=H2),F$2:F$10)*B$2:B$8)

到处乱逛

3190496160 发表于 2023-10-4 22:34
Sub 统计()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant

谢谢回复！VBA正在学习中，先保留下来慢慢分析理解。

到处乱逛

剑指E 发表于 2023-10-5 00:49

谢谢指点回复！