如何用字典或数组求最大值和最小值？

附件

最大值最小值.rar(8.12 KB)

2011-8-10 23:44, 下载次数: 4

复制内容到剪贴板

代码:

Sub yy()
    Dim d As Object, r, i%, k%
    Set d = CreateObject("Scripting.Dictionary")
    r = Range("a2:b" & [a65536].End(3).Row)
      For i = 1 To UBound(r)
         If Not d.exists(r(i, 1)) Then
            If r(i, 2) <> "" Then d(r(i, 1)) = r(i, 2)
          Else
            If r(i, 2) > d(r(i, 1)) Then d(r(i, 1)) = r(i, 2)
        End If
      Next
[d2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[e2].Resize(d.Count, 1) = Application.Transpose(d.items)
      For i = 1 To UBound(r)
        If d.exists(r(i, 1)) Then
          If r(i, 2) <> "" And r(i, 2) < d(r(i, 1)) Then d(r(i, 1)) = r(i, 2)
        End If
      Next
[f2].Resize(d.Count, 1) = Application.Transpose(d.items)
    Set d = Nothing
End Sub

附件

最大值最小值2.rar(7.62 KB)

2011-8-11 01:21, 下载次数: 0