根据BOM和出货计划（有日期，包含半成品），得出最终材料的使用计划。

chxw68

今铭昔 发表于 2023-8-26 08:05

你看看楼主一楼的模拟结果，他是要最基本的零件数量，不要零件组合体的数量。

chxw68

今铭昔 发表于 2023-8-26 08:05

假设这个表是给库房管理人员发货用的，他只需要知道要发多少条内胎、多少根辐条，他不需要知道发多少个轮子。

今铭昔

chxw68 发表于 2023-8-26 08:15
你看看楼主一楼的模拟结果，他是要最基本的零件数量，不要零件组合体的数量。

原来只是要A列的母件就可以了啊，不需要具体到子件上，确实是要加一个递归终止条件

汉唐

这个题目可以不用递归的（递归太高深）,用字典和数组就可以的，仅供参考

chxw68

1. Sub Test3()
   
2.     Dim r%, i%
   
3.     Dim arr, brr, crr(1 To 10000, 1 To 4)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     Set d1 = CreateObject("scripting.dictionary")
   
6.     With Worksheets("sheet1")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:c" & r)
   
9.         For i = 1 To UBound(arr)
   
10.             If Not d.exists(arr(i, 1)) Then
    
11.                 Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
    
12.             End If
    
13.             d(arr(i, 1))(arr(i, 2)) = arr(i, 3)
    
14.         Next
    
15.         r = .Cells(.Rows.Count, 5).End(xlUp).Row
    
16.         brr = .Range("e2:g" & r)
    
17.         m = 0
    
18.         For i = 1 To UBound(brr)
    
19.             n = 0
    
20.             d1.RemoveAll
    
21.             d1(brr(i, 1)) = brr(i, 2)
    
22.             Do While n < d1.Count
    
23.                 kk = d1.keys
    
24.                 For Each bb In d(kk(n)).keys
    
25.                     If d.exists(bb) Then
    
26.                         d1(bb) = d1(kk(n)) * d(kk(n))(bb)
    
27.                     Else
    
28.                         m = m + 1
    
29.                         crr(m, 1) = brr(i, 1)
    
30.                         crr(m, 2) = bb
    
31.                         crr(m, 3) = d(kk(n))(bb) * d1(kk(n))
    
32.                         crr(m, 4) = brr(i, 3)
    
33.                     End If
    
34.                 Next
    
35.                 n = n + 1
    
36.             Loop
    
37.         Next
    
38.         .Range("i2:l" & .Rows.Count).ClearContents
    
39.         .Range("i2").Resize(m, UBound(crr, 2)) = crr
    
40.     End With
    
41.    
    
42. End Sub
    

复制代码

chxw68

不用递归写一个。

tylerchu

谢谢各位老师！