求助统计销售数据的自动更新

hcjlghg

有两张excel表，sheet1为流水账，sheet2为实时统计，流水账中有5个项目，每个项目分别对应3个类别的销售额，每天发生的销售情况都不同。sheet2中统计各项目对应各类别的销售汇总，类似于用sumifs进行多条件求和。求在流水账手动录入每天数据后，用VBA代码实现实时统计表的自动更新。谢谢！

3190496160

Sub 分类汇总()
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("流水账")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "流水账为空！": End
    ar = .Range("a1:e" & r)
End With
Dim br()
ReDim br(1 To UBound(ar), 1 To 4)
For i = 2 To UBound(ar)
    If ar(i, 2) <> "" Then
        zd = ar(i, 2) & "|" & ar(i, 3)
        t = d(zd)
        If t = "" Then
            k = k + 1
            d(zd) = k
            t = k
            br(k, 1) = k
            br(k, 2) = ar(i, 2)
            br(k, 3) = ar(i, 3)
        End If
        br(t, 4) = br(t, 4) + ar(i, 4)
    End If
Next i
With Sheets("实时统计")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(k, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

求自动更新销售数据.rar (17.16 KB, 下载次数: 10)

2024-6-29 11:48 上传

点击文件名下载附件

shiruiqiang

最基本的字典求和

hcjlghg

3190496160 发表于 2024-6-29 11:48

万分感谢！对于尚未入门只是初窥VBA的小小白的我来说太受用了。

hcjlghg

shiruiqiang 发表于 2024-6-29 11:49
最基本的字典求和

感谢！今天认识了一个新名词“字典求和”。

7993708

3190496160 发表于 2024-6-29 11:46
Sub 分类汇总()
Dim ar As Variant
Dim d As Object

如果前面加多一列呢,我改了好久没改好