vba字典

回复 烟雨江南ooo :需要把“源”表中，最低的价格匹配到“匹配结果”表中，现在的代码只会渠道最后一个价格

直接用SQL 去写个MIN就是了

Sub aaa()
Dim D, X%, I%
Dim Arr
Arr = Sheet1.Range("A1:B10").Value
Set D = CreateObject("Scripting.Dictionary")
For I = 1 To UBound(Arr, 1)
If Not D.Exists(Arr(I, 1)) Then
D(Arr(I, 1)) = Arr(I, 2)
Else
D(Arr(I, 1)) = IIf(D(Arr(I, 1)) > Arr(I, 2), Arr(I, 2), D(Arr(I, 1)))
End If
Next
Debug.Print 1
End Sub
给你个框架，自己改一下就好了

已经可以了，按以下方法可以取最小值

加一个判断