VBA 按2中条件汇总

zyuyu888

各位大侠
          我有一生产资料，需要根据任务单和生产站别进行VBA分类汇总，原来是用sumifs和sumproduct，有4万行数据，运行起来非常的慢，请大侠赐教，感恩！

zyuyu888

请大家动动您的发财小手

xiangbaoan

………………

zyuyu888

xiangbaoan 发表于 2019-11-10 15:33
………………

谢谢，目的已经达到，如能够只根据指定字段去汇总就完美了

xiangbaoan

zyuyu888 发表于 2019-11-10 16:20
谢谢，目的已经达到，如能够只根据指定字段去汇总就完美了

Sq = "TRANSFORM SUM(合格品) SELECT [生产_任务单] AS 生产任务单 FROM [" & .Name & "$E1:K" & .[e65536].End(xlUp).Row & "] GROUP BY [生产_任务单] PIVOT 站别 IN(包纸,包装,印字,印字目检,喷金)"

'这个意思吧，后面自己任意删增。

zyuyu888

xiangbaoan 发表于 2019-11-10 16:23
Sq = "TRANSFORM SUM(合格品) SELECT [生产_任务单] AS 生产任务单 FROM [" & .Name & "$E1:K" & .[e6553 ...

谢谢，完美

zyuyu888

zyuyu888 发表于 2019-11-10 17:14
谢谢，完美

那我只是计算指定的任务单号，怎么样处理呢?感恩您的无私解答

xiangbaoan

zyuyu888 发表于 2019-11-10 17:25
那我只是计算指定的任务单号，怎么样处理呢?感恩您的无私解答

Option Explicit
Sub test2() '是这个效果吧?
    Dim d As Object, ar, br, i&, j&, x&, y&, s$, t$
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets("汇总").[a1].CurrentRegion
        .Offset(1, 1).ClearContents
        ar = .Value
    End With
    For i = 2 To UBound(ar)
        s = ar(i, 1)
        If Len(s) Then d(s) = i
    Next
    For j = 2 To UBound(ar, 2)
        t = ar(1, j)
        If Len(t) Then d(t) = j
    Next
    With Sheets("生产日报表")
        br = .Range("e1:k" & .Cells(.Rows.Count, 5).End(xlUp).Row)
    End With
    For i = 2 To UBound(br)
        s = br(i, 4)
        t = br(i, 1)
        If d.Exists(s) And d.Exists(t) Then
            y = d(s)
            x = d(t)
            ar(y, x) = ar(y, x) + Val(br(i, 7))
        End If
    Next
    Sheets("汇总").[a1].Resize(UBound(ar), UBound(ar, 2)) = ar
    Set d = Nothing
End Sub

zyuyu888

xiangbaoan 发表于 2019-11-10 17:52
Option Explicit
Sub test2() '是这个效果吧?
    Dim d As Object, ar, br, i&, j&, x&, y&, s$, t$

生产日报表中有N个工单，部分已经完工后的我会保留，我现在计算的是没有完工的工单，汇总表中的工单我会增加和删除，我计算时是根据汇总表中的工单进行汇总。

xiangbaoan

zyuyu888 发表于 2019-11-10 19:17
生产日报表中有N个工单，部分已经完工后的我会保留，我现在计算的是没有完工的工单，汇总表中的工单我会 ...

测试了吗?就是那个效果呢。