求高手帮忙如何快速汇总

3343237

这是我们车间的生产记录表
能用公式按批号把每个批号投料重量和蒸镀重量的总和显示在汇总表里吗
求大大帮忙小弟不胜感激！

xpm130

用数据透视表比较方便吧.

xpm130

产量汇总_透视表.rar (261.18 KB, 下载次数: 17)

2013-5-14 07:11 上传

点击文件名下载附件

上个附件参考下

清风幽闲

Sub g()
Set d = CreateObject("scripting.dictionary")
Dim rng As Range
For Each rng In Range(Cells(2, "d"), Cells(Rows.Count, "d").End(3))
    d(rng.Value) = ""
Next rng
For Each rngd In d.keys
    For Each rng In Range(Cells(2, "d"), Cells(Rows.Count, "d").End(3))
        If rngd = rng.Value Then
            n = n + rng.Offset(, 3).Value + rng.Offset(, 4).Value
        End If
    Next rng
    m = m + 1
    Cells(m + 1, "j").Value = rngd
    Cells(m + 1, "k").Value = n
    n = 0
Next rngd
End Sub

3343237

清风幽闲 发表于 2013-5-14 07:19
Sub g()
Set d = CreateObject("scripting.dictionary")
Dim rng As Range

小弟不才，请问这段代码是如何应用的？能说说步骤吗

清风幽闲

产量汇总.rar (222.55 KB, 下载次数: 24)

2013-5-15 07:34 上传

点击文件名下载附件

点击按钮，进行汇总，大概需5秒时间

3343237

清风幽闲 发表于 2013-5-15 07:35
点击按钮，进行汇总，大概需5秒时间

额，可能我表达得不清楚，上传的表也有疏漏。。。。我的意思是能把日报表里面每个批号的投料重量和蒸镀重量总和分别自动汇总到汇总表的G列和H列吗，我目前的做法是每天都自己求和一下每个批号的重量总和再输入到汇总表里，因为有时候一个批号不是一天能完成的所以每天数据都要加来加去好麻烦

3343237

2012年产量考核.zip (903.42 KB, 下载次数: 12)

2013-5-15 08:24 上传

点击文件名下载附件

之前我发的表格简化了不少，因为我以为能用公式实现，想不到要用VBA实现- -，现在我把完整格式表格发出来了，希望高手帮下忙，不胜感激