字典求最大值与最小值

wqhsz385919

大侠，这是我学着写的字典求最大值与最小值，然后在后一列填占比，但不对，想了半天没有办法，请帮忙提点，多谢！以下黄色区域的模拟是正确的
以下代码不对：


Private Sub CommandButton1_Click()
ar = Range("a1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(ar)
    s = Trim(ar(i, 1))
    s1 = Trim(ar(i, 2)): s1 = Replace("@" & s1, "@", "")
    If Not d.exists(s & s1) Then
       d(s & s1) = ar(i, 3)
     Else
        If ar(i, 3) > d(s & s1) Then ar(i, 4) = 0.3
        If ar(i, 3) < d(s & s1) Then ar(i, 4) = 0.7
     End If
    Next
  Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar  
End Sub

taller

wqhsz385919

taller 发表于 2023-4-6 00:09

非常荣幸、感谢！

taller

ar= 。。 ' 此代码放到清空D列代码之后，避免D列对结果的影响

wqhsz385919

taller 发表于 2023-4-6 06:15
ar= 。。 ' 此代码放到清空D列代码之后，避免D列对结果的影响

早 ，感谢感谢！
结果非常正常！不过，我不理解，如果一组料号中这个0.7是如何准确写到单元格里去的，看代码似乎没有交代，另外，一组只有一个料号写入1是对的，您的理解超强，如果要写入空白，又要怎么写！PS: ar(dICMIN(skey), 4) = 0.7,这与ar(dICMAX(skey), 4) = 0.3一样的逻辑，为何又不正确，烦请版主帮忙解惑，多谢！

taller

更正代码见8楼

taller

wqhsz385919 发表于 2023-4-6 06:27
早 ，感谢感谢！
结果非常正常！不过，我不理解，如果一组料号中这个0.7是如何准确写到单元格里去的，看 ...

需要识别哪些材料只有一行记录，只是简单的赋值的话，对于这样的数据行，第一个字典循环写入0.3，第二个字典循环写入0.7，最终结果就保留为0.7，肯定不对

taller

wqhsz385919

taller 发表于 2023-4-6 06:50

谢谢您的耐心指导！
您最初的我想是非常巧妙，只是我转不过弯来， 这个我可以理解下来，多谢！耽误你这么多的时候，给您奉上一包烟，帮忙提供一下微信支付，多谢！