工厂替代料问题如何解决?

class11class

此问题困扰我一个月之久,想了好久,都想不到好解决办法,

特来求助:

class11class

补充说明:用原物料代码去查询,将同一个阶次下的替代料放在一起,补充说明：阶次规则是从1到25开始排列的，这样放是为了说明意思

ynzsvt

地主上传的文件为啥扩展名是不对的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = [G1].Address Then Call WjW(Target.Value)
   
3. End Sub
   
4. 
   
5. Sub WjW(St$)
   
6. Dim Arr, Brr, i&, j&, Dic As Object, Dk
   
7. Dim R As Range
   
8. 
   
9. Arr = [A1].CurrentRegion
   
10. ReDim Brr(1 To UBound(Arr), 1 To 4)
    
11. Set Dic = CreateObject("Scripting.Dictionary")
    
12. For i = 2 To UBound(Arr)
    
13.   If Arr(i, 3) = St Then
    
14.    Dic(Split(Arr(i, 2), ".")(0)) = ""
    
15.   End If
    
16. Next i
    
17. 
    
18. For i = 2 To UBound(Arr)
    
19.   If Dic.Exists(Split(Arr(i, 2), ".")(0)) Then
    
20.    j = j + 1
    
21.    Brr(j, 1) = Arr(i, 1)
    
22.    Brr(j, 2) = St
    
23.    Brr(j, 3) = Arr(i, 2)
    
24.    Brr(j, 4) = Arr(i, 3)
    
25.   End If
    
26. Next i
    
27. 
    
28. [F5].Resize(UBound(Brr), 4) = Brr
    
29. Set Dic = Nothing
    
30. End Sub

复制代码