数组和字典法根据单级BOM计算耗用的例子

HLAI

wzsy2_mrf 发表于 2016-9-11 11:01
还是用双词典，速度提升一倍

刚试过，同样的数据要0.25s。似乎比我之前累赘的的双字典法还要慢。。。。

wzsy2_mrf

HLAI 发表于 2016-9-11 11:12
刚试过，同样的数据要0.25s。似乎比我之前累赘的的双字典法还要慢。。。。

我这里测快很多，不知原因。

wzsy2_mrf

再测一下，是我那个最慢，原因其实很简单，没有把同类产品归并的缘故。

wzsy2_mrf

你的单词典算法似有问题，你将原来的数据复制几份贴在下面看看，单词典算法与其它算法答案不同，其它则相同。

wzsy2_mrf

三词典算法，目前来看应该是速度最快的：

1. Sub test3()
   
2.     t = Timer
   
3.     Dim iArr_Data(), iArr_BOM(), iArr_Total(), i&, j&, n&, xms, d, mkey ', iArr_Group()
   
4.     Dim iDict_Total As Object
   
5.     ReDim iArr_Total(1 To 10000, 1 To 2)
   
6.     Set iDict_Total = CreateObject("Scripting.Dictionary")
   
7.     Set iDict_M = CreateObject("Scripting.Dictionary")
   
8.     Set d = CreateObject("Scripting.Dictionary")
   
9.    
   
10.     With Sh_Data
    
11.         .Range("H2:I65536").ClearContents
    
12.         iArr_BOM = .Range("A3:C12408")
    
13.         iArr_Data = .Range("E3:F" & .Range("E65526").End(xlUp).Row)
    
14.         For i = 1 To UBound(iArr_BOM)
    
15.             If Not iDict_Total.exists(iArr_BOM(i, 1)) Then
    
16.                 iDict_Total(iArr_BOM(i, 1)) = i
    
17.             Else
    
18.                 iDict_Total(iArr_BOM(i, 1)) = iDict_Total(iArr_BOM(i, 1)) & "++" & i
    
19.             End If
    
20.         Next
    
21.         For i = 1 To UBound(iArr_Data)
    
22.             If Not d.exists(iArr_Data(i, 1)) Then
    
23.                 d(iArr_Data(i, 1)) = iArr_Data(i, 2)
    
24.             Else
    
25.                 d(iArr_Data(i, 1)) = d(iArr_Data(i, 1)) + iArr_Data(i, 2)
    
26.             End If
    
27.         Next
    
28.         
    
29.         
    
30.         n = 0
    
31.         For Each mkey In d.keys
    
32.             If iDict_Total.exists(mkey) Then
    
33.                 xms = Split(iDict_Total(mkey), "++")
    
34.                 For j = 0 To UBound(xms)
    
35.                     If Not iDict_M.exists(iArr_BOM(xms(j), 2)) Then
    
36.                         n = n + 1
    
37.                         iDict_M(iArr_BOM(xms(j), 2)) = n
    
38.                         iArr_Total(n, 1) = iArr_BOM(xms(j), 2)
    
39.                         iArr_Total(n, 2) = iArr_BOM(xms(j), 3) * d(mkey)
    
40.                     Else
    
41.                         iArr_Total(iDict_M(iArr_BOM(xms(j), 2)), 2) = iArr_Total(iDict_M(iArr_BOM(xms(j), 2)), 2) + iArr_BOM(xms(j), 3) * d(mkey)
    
42.                     End If
    
43.                 Next
    
44.             End If
    
45.         Next
    
46.         .Range("M3").Resize(n, 2) = iArr_Total
    
47.         .Range("M3").Resize(n, 2).Sort Key1:=.Range("M3"), Order1:=xlAscending, Header:=xlNo
    
48.     End With
    
49.     MsgBox Timer - t
    
50. End Sub
    

复制代码

HLAI

wzsy2_mrf 发表于 2016-9-11 11:36
你的单词典算法似有问题，你将原来的数据复制几份贴在下面看看，单词典算法与其它算法答案不同，其它则相同 ...

昨天测试的时候的确发现有一个数不同，但反复运行几次后又相同了，看来还要再测试多几次。

blackttea1

作个记号,谢谢

zhjlgaojuan

个人认为,遍历两个数据区是必须的,不管什么算法,起码要把数据源读出并比较一次,所以,我前面的算法应该再没有多大的提速空间了,再怎么优化下去,也就是千分之几秒的差距了,这种情况下,语句上简洁,能佷容易被人读懂显得更为重要,没必要为了追求千分之几秒的速度,而去绞尽脑汁,有时候甚至自己把自己都绕晕了

wzsy2_mrf

zhjlgaojuan 发表于 2016-9-11 17:01
个人认为,遍历两个数据区是必须的,不管什么算法,起码要把数据源读出并比较一次,所以,我前面的算法应该再没 ...

你那个算法的确有优势，简洁不说，就是速度上也胜人一等。原因在于你对BOM表只经历了与计算相关的那部分，而我则是全部遍历了一次。

anderlue

mark,学习中