求助！报价单位最小报价组合

Excel表哥在此

供参考

lushang2018

1. Sub 测试()  ''答题专用套路--by:学习使我快乐
   
2.     Dim i, j, k, arr
   
3.     Dim dic As Object, key As String, keys, items
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     Sheet1.Activate
   
6.     arr = Range("A1").CurrentRegion.Value
   
7.     For i = 3 To UBound(arr)
   
8.         For j = 1 To UBound(arr, 2) Step 2
   
9.             key = arr(i, j)
   
10.             If Not dic.Exists(key) Then
    
11.                 dic(key) = arr(i, j + 1)
    
12.             Else
    
13.                 If arr(i, j + 1) < dic(key) Then
    
14.                     dic(key) = arr(i, j + 1)
    
15.                 End If
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     keys = dic.keys
    
20.     items = dic.items
    
21.     For i = LBound(keys) To UBound(keys)
    
22.         key = keys(i)
    
23.         k = k + dic(key)
    
24.     Next
    
25.     Range("A10") = "最小值合计"
    
26.     Range("B10") = k
    
27. End Sub
    

复制代码