SUMIF求和太慢卡死

523667331

A列卡号第一次出现的时候（总共2万行），用此卡号计算“sgm表数据”中同卡号的总转入量及转出量，若没有就为空白，行数太多，我用SUMIF计算太慢了，请大神帮忙写出快速计算的代码，谢谢！

skyzxh

要·快还是用vba吧。。。。。

xiangbaoan

Option Explicit
Sub test()
Dim d As Object, ar, i&, j&, k&, s$
Set d = CreateObject("Scripting.Dictionary")
ar = Sheets("报工数据").Range("a3:a" & Sheets("报工数据").Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(ar)
    If Not d.Exists(ar(i, 1)) Then d(ar(i, 1)) = i
Next
ReDim br(1 To UBound(ar), 1 To 2)
ar = Sheets("sgm表数据").Range("a3:c" & Sheets("sgm表数据").Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(ar)
    s = ar(i, 1)
    If d.Exists(s) Then
        k = d(s)
        For j = 1 To 2
            br(k, j) = br(k, j) + ar(i, j + 1)
        Next
    End If
Next
Sheets("报工数据").[b3].Resize(UBound(br), 2) = br
Set d = Nothing
End Sub

koala219

坐一个，等待求解。

用数组求和，双循环，结果卡死。

我用另外一个方法：
先数据透视表求和，再vlookup检索，可以完成。

lsc900707

koala219 发表于 2019-9-16 16:42
坐一个，等待求解。

用数组求和，双循环，结果卡死。

字典+数组可以完成的呀！

523667331

lsc900707 发表于 2019-9-16 17:10
字典+数组可以完成的呀！

我不知道代码怎么写，请大神帮忙一下，谢谢！

小花鹿

过千的数据量不适合用公式                                                                                             

523667331

xiangbaoan 发表于 2019-9-16 16:42
Option Explicit
Sub test()
Dim d As Object, ar, i&, j&, k&, s$

谢谢大神，很好用，很快，请教一下，这个代码的逻辑和意思，我是初学者，特感兴趣，谢谢！

xiangbaoan

523667331 发表于 2019-9-16 17:40
谢谢大神，很好用，很快，请教一下，这个代码的逻辑和意思，我是初学者，特感兴趣，谢谢！

待我喝几两小酒后再说，到那时大概也说不清了；
你可先拜读一下论坛知识树中老师的作品，佛山小老鼠、香川群子等老师关于数组字典的作品值得推荐。

523667331

xiangbaoan 发表于 2019-9-16 17:55
待我喝几两小酒后再说，到那时大概也说不清了；
你可先拜读一下论坛知识树中老师的作品，佛山小老鼠、香 ...

好的，谢谢！