vba字典 - vba吧

level 2

筱筱瑇楼主

vba字典匹配的
如果
目标表有重复项目，但是值不同，只会提取
最后一个
重复项的值，有办法取这些重复项中最小的吗？
比如
可乐 12
可乐15
想取12的最小值

2023年07月27日 07点07分 1

level 12

烟雨江南ooo

自己加个判断不就行了

2023年07月27日 07点07分 2

筱筱瑇

arr1(i, 27) = dic6(arr1(i, 5) & "##" & arr1(i, 25)) arr1(i, 28) = dic7(arr1(i, 24) & "##" & arr1(i, 25)) 用的这种条件赋值，怎么去判断取小呢

2023年07月27日 09点07分

烟雨江南ooo

@筱筱瑇你先上图，包括表格样式，代码图

2023年07月27日 10点07分

筱筱瑇

@烟雨江南ooo 3楼上图了，麻烦帮忙看看 [爱心]

2023年07月28日 01点07分

level 2

筱筱瑇楼主

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

2023年07月28日 01点07分 3

level 7

ISD_狮子座

直接用SQL 去写个MIN就是了

2023年07月28日 01点07分 4

level 11

DwcCC

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
给你个框架，自己改一下就好了

2023年07月28日 02点07分 5

level 2

筱筱瑇楼主

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