运行出错，实在是改不好，请帮忙看看，多谢！！

2728911088

这一句总是运行出错，请各位老师帮忙看看，实在是改不好，多谢！！
            If dic.exists(mbsz2(0)) Then

1055751654

jjj:
        
        For i1 = 0 To UBound(mbsz1)
            mbsz2 = IIf(i1 > 1, Split(mbsz1(i1), ";"), mbsz1)

1055751654

好像不对，应该不是i1>1,这样mbsz2 = IIf(UBound(mbsz1) > 1, Split(mbsz1(i1), ";"), mbsz1)

wang-way

不清楚你的思路  是多个产品多级原料的bom  我脑子不好使 解不开 但是可以给你提点建议 可读性和效率会提高一点

1.     With Sheets("料单")
   
2.         arr = .Range("A1").CurrentRegion.Value
   
3.         Key = arr(i, 1)
   
4.         Do
   
5.             If Len(Key) = 0 Then Exit Do
   
6.             If Not Dic.Exists(Key) Then
   
7.                 Dic(Key) = arr(i, 3) & ";" & arr(i, 5)
   
8.             Else
   
9.                 Dic(Key) = Dic(Key) & "," & arr(i, 3) & ";" & arr(i, 5)
   
10.             End If
    
11.             If i = UBound(arr) Then Exit Do
    
12.             i = i + 1
    
13.         Loop
    
14.     End With

复制代码

qhmpv

你要实现什么功能啊，看着头好大

wang-way

qhmpv 发表于 2020-4-11 21:15
你要实现什么功能啊，看着头好大

应该是每件产品对应的各级子料数量

2728911088

1055751654 发表于 2020-4-11 19:20
好像不对，应该不是i1>1,这样mbsz2 = IIf(UBound(mbsz1) > 1, Split(mbsz1(i1), ";"), mbsz1)

感谢感谢 ，能运行了，不过少了一些数据。
最后面的几个产品代码，目前运行出来的结果：


实际应该：少了黄颜色部分。



注：就是把料单里面的BOM全部展开，展开到最底层次。就比如，

2728911088

wang-way 发表于 2020-4-11 20:40
不清楚你的思路  是多个产品多级原料的bom  我脑子不好使 解不开 但是可以给你提点建议 可读性和效率会提高 ...

老师好，目前思路是把料单里面的产品代码展开到最底层，并把层次全部显示出来。

注：就是把料单里面的BOM全部展开，展开到最底层次。就比如，

2728911088

qhmpv 发表于 2020-4-11 21:15
你要实现什么功能啊，看着头好大

您好，是要实现BOM料单全部展开最底层，谢谢！！

yjh_27

2728911088 发表于 2020-4-12 08:39
您好，是要实现BOM料单全部展开最底层，谢谢！！

参见附件。