VBa分类汇总本月销售退货和累计销售退货数量金额

ZX54545

VBa分类汇总本月销售退货和累计销售退货数量金额

3190496160

也就是数组+字典的问题，但是，累计数量，金额如何理解呢？？

3190496160

Sub 分类汇总()
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("明细")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:m" & r)
End With
ReDim br(1 To UBound(ar), 1 To 9)
With Sheets("品种类")
    ny = Format(.[i2], "yyyym")
    For i = 2 To UBound(ar)
        If Trim(ar(i, 6)) <> "" Then
            If IsDate(ar(i, 6)) Then
                If Trim(ar(i, 8)) <> "" Then
                    t = d(Trim(ar(i, 8)))
                    If t = "" Then
                        k = k + 1
                        d(Trim(ar(i, 8))) = k
                        t = k
                        br(k, 1) = ar(i, 8)
                    End If
                    If Trim(ar(i, 7)) = "销售" Then
                        If Format(ar(i, 6), "yyyym") = ny Then
                            br(t, 2) = br(t, 2) + ar(i, 10)
                            br(t, 3) = br(t, 3) + ar(i, 12)
                        End If
                        If Format(ar(i, 6), "yyyym") <= ny Then
                            br(t, 4) = br(t, 4) + ar(i, 10)
                            br(t, 5) = br(t, 5) + ar(i, 12)
                        End If
                    ElseIf Trim(ar(i, 7)) = "退货" Then
                        If Format(ar(i, 6), "yyyym") = ny Then
                            br(t, 6) = br(t, 6) + ar(i, 10)
                            br(t, 7) = br(t, 7) + ar(i, 12)
                        End If
                        If Format(ar(i, 6), "yyyym") <= ny Then
                            br(t, 8) = br(t, 8) + ar(i, 10)
                            br(t, 9) = br(t, 9) + ar(i, 12)
                        End If
                    End If
                End If
            End If
        End If
    Next i
    .UsedRange.Offset(4).Borders.LineStyle = 0
    .UsedRange.Offset(4) = Empty
    .[a5].Resize(k, UBound(br, 2)) = br
    .[a5].Resize(k, UBound(br, 2)).Borders.LineStyle = 1
End With
Set d = Nothing
MsgBox "ok!"
End Sub

3190496160

结果未核对，仅供参考
分类汇总.rar (22.79 KB, 下载次数: 13)

2022-11-28 16:10 上传

点击文件名下载附件

ZX54545

3190496160 发表于 2022-11-28 15:53
也就是数组+字典的问题，但是，累计数量，金额如何理解呢？？

根据条件J2单元格统计本月销售退货数量金额和截止J2日期累计销售 退货数量和金额 ，谢谢

ZX54545

3190496160 发表于 2022-11-28 16:10
结果未核对，仅供参考

已测试可以了，谢谢

ykcbf1100

这个就是体力活。