统计数据最大、最小值

lpy6666

统计数据最大、最小值
方法不限，函数、VBA，附件内有正确答案。

lpy6666

没人解答？、？？？？

qingc0221

你都高级了还不会?

lpy6666

qingc0221 发表于 2017-5-18 14:52
你都高级了还不会?

别说没用的了。你会你写啊。不会就走开

lpy6666

qingc0221 发表于 2017-5-18 14:52
你都高级了还不会?

走开、、、、、、、、、、、、、

zax010

Sub zz()
    Dim d(1 To 4) As New Dictionary, ar
    Application.ScreenUpdating = False
    ar = Sheet2.Range("A1").CurrentRegion
    For i = 2 To UBound(ar)
        If Not d(1).Exists(ar(i, 1)) Then
            d(1)(ar(i, 1)) = Array(ar(i, 2), ar(i, 4))
        Else
            d(2)(ar(i, 1)) = Array(ar(i, 2), ar(i, 4))
        End If
        If ar(i, 4) > d(3)(ar(i, 1)) Then
            d(3)(ar(i, 1)) = ar(i, 4)
            d(4)(ar(i, 1)) = ar(i, 2)
        End If
    Next
    Sheet1.Activate
    For i = 2 To [a65536].End(3).Row
        Cells(i, 2).Resize(1, 2) = d(1)(Cells(i, 1).Value)
        Cells(i, 5).Resize(1, 2) = d(2)(Cells(i, 1).Value)
        Cells(i, 8) = d(4)(Cells(i, 1).Value)
        Cells(i, 9) = d(3)(Cells(i, 1).Value)
    Next
    Application.ScreenUpdating = True
End Sub

zax010

VBE 引用 MS Scripting Runtime


求助1.rar (22.72 KB, 下载次数: 18)

2017-5-18 15:38 上传

点击文件名下载附件

liuxianlin848

咨询下老师：d(1)(ar(i, 1)) = Array(ar(i, 2), ar(i, 4))表示第一出现； d(2)(ar(i, 1)) = Array(ar(i, 2), ar(i, 4))表示最后一次出现，这是什么道理？能不能解释下呵

qingc0221

居然翻出来2年前被怼的帖子,一点印象都没有了
话说能不能开个拉黑的功能,把不想看的用户的帖子给屏蔽掉??

liuxianlin848

qingc0221 发表于 2019-8-2 17:02
居然翻出来2年前被怼的帖子,一点印象都没有了
话说能不能开个拉黑的功能,把不想看的用户的帖子给屏蔽掉??

老师息怒，俺今年才开始学习这个。把你们的帖子一个一个的拿出来学习。