根据产品从bom表中统计所有的用料及用量

睡不着了qwe

如何用vba，根据产品从bom表中统计所有的用料及用量。
求助.zip (8.34 KB, 下载次数: 2)

2024-1-5 15:01 上传

点击文件名下载附件

rendiule01

最近好多BOM类似帖子：改一下
演示.zip (35.3 KB, 下载次数: 20)

2024-1-5 15:12 上传

点击文件名下载附件

titi012

.................

1. Sub tt()
   
2.     Dim Arr, Brr(), Crr(), x&, y&, R&, N&
   
3.     R = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     Arr = Range("a2:c" & R).Value
   
5.     ReDim Brr(1 To R, 1 To 2)
   
6.     ReDim Crr(1 To R)
   
7.     Crr(1) = Range("e2").Value
   
8.     For x = 1 To UBound(Crr)
   
9.         If Crr(x) <> "" Then
   
10.             For y = 1 To UBound(Arr)
    
11.                 If Arr(y, 1) Like Crr(x) Then
    
12.                     N = N + 1
    
13.                     Brr(N, 1) = Arr(y, 2)
    
14.                     Brr(N, 2) = Arr(y, 3)
    
15.                     Crr(N + 1) = Arr(y, 2)
    
16.                 End If
    
17.             Next y
    
18.         End If
    
19.     Next x
    
20.     Range("F2:G" & Cells(Rows.Count, 6).End(xlUp).Row).ClearContents
    
21.     Range("F2").Resize(R, 2) = Brr
    
22. End Sub

复制代码