已知五金清单与五金单价表求所需金额

iwangyi

已知五金清单与五金单价表求所需金额，成本文件夹内有各多个产品的五金清单，计算表内有五金单价表；按产品求五金成本。

ykcbf1100

附件请参考。。。

aecn

ykcbf1100 发表于 2023-3-2 15:33
附件请参考。。。

ykcbf1100 老师是这个论坛最活跃的老师之一了

tanglf188

1. Sub test6()
   
2.     Dim i&, last&, arr
   
3.     last = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
   
4.     arr = Sheet2.Range("A2:D" & last)
   
5.     Dim d As Object, i&
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     For i = 1 To UBound(arr)
   
8.         d(arr(i, 1) & "|" & arr(i, 2)) = arr(i, 4)
   
9.     Next
   
10.     last = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
    
11.     arr = Sheet1.Range("C2:H" & last)
    
12.     For i = 1 To UBound(arr)
    
13.         If d.exists(arr(i, 1) & "|" & arr(i, 2)) Then
    
14.             arr(i, 5) = d(arr(i, 1) & "|" & arr(i, 2))
    
15.             arr(i, 6) = arr(i, 3) * arr(i, 5)
    
16.         End If
    
17.     Next
    
18.     Sheet1.[G2].Resize(UBound(arr), 1) = Application.Index(arr, 0, 5)
    
19.     Sheet1.[H2].Resize(UBound(arr), 1) = Application.Index(arr, 0, 6)
    
20. End Sub
    

复制代码

ykcbf1100

aecn 发表于 2023-3-2 15:46
ykcbf1100 老师是这个论坛最活跃的老师之一了

我比较闲

aecn

ykcbf1100 发表于 2023-3-2 15:55
我比较闲

闲的人不少，主要是老师是热心肠

ykcbf1100

aecn 发表于 2023-3-2 16:33
闲的人不少，主要是老师是热心肠

我自己也是在泡论坛中成长起来的，对于真正需要的求助，有能力帮的时候，还是应该出手相助的。
来自论坛，回报论坛。