求一列单据号中符合月份供货商不重复的单据张数

mr.yjs

请各位大侠帮忙，且表的速度超慢，是不是数组公式的原因

grf1973

Sub tt()
    Dim d, d1, sht, i, j, ghs, dh, arr, brr, crr, drr, num
    Set d = CreateObject("scripting.dictionary")
    Set d1 = CreateObject("scripting.dictionary")
    Set sht = Sheets("入库数据")
    For i = 2 To sht.[a65536].End(3).Row
        ghs = sht.Cells(i, 3).Text: dh = sht.Cells(i, 2).Text
        d1(ghs & dh) = d1(ghs & dh) + 1
        d(ghs) = d(ghs) + sht.Cells(i, "J")
    Next
    arr = d.keys: brr = d.items: crr = d1.keys: drr = d1.items
    For i = 0 To UBound(arr)
        Cells(i + 3, "U") = arr(i): Cells(i + 3, "W") = brr(i): num = 0
'        For j = 0 To UBound(crr)
'            dh = Left(crr(j), Len(arr(i)))
'            If dh = arr(i) Then num = num + drr(j)
'        Next
'        Cells(i + 3, "V") = num
    Next
End Sub


中间注释一段调试不通，你的文件连用Left这样的命令都会出现“找不到工程或库”，实在没法编啊。

mr.yjs

grf1973 发表于 2013-4-7 13:08
Sub tt()
    Dim d, d1, sht, i, j, ghs, dh, arr, brr, crr, drr, num
    Set d = CreateObject("scri ...

问题已解决   谢谢！