提取不重复值及对应的第二个最大值

山菊花

缔造者 发表于 2013-10-25 20:33
是的，存在此情况。

添加代码如下：
Sub tiqu()
    Dim ds, nRow%, n%, m%, Arr(), Brr()
    Set ds = CreateObject("scripting.dictionary") '定义字典
    nRow = Range("a65536").End(xlUp).Row
    Arr = Range("a2:b" & nRow).Value
    ReDim Brr(1 To nRow, 1 To 3)
    For i = 1 To nRow - 1
        n = ds(Arr(i, 1))
        If n = 0 Then
            m = m + 1
            n = m
            ds(Arr(i, 1)) = m
            Brr(m, 1) = Arr(i, 1)
        End If
        If Arr(i, 2) >= Brr(n, 3) Then
            Brr(n, 2) = Brr(n, 3)
            Brr(n, 3) = Arr(i, 2)
        ElseIf Arr(i, 2) > Brr(n, 2) Then
            Brr(n, 2) = Arr(i, 2)
        End If
    Next
    For i = 1 To m
        If Brr(i, 2) = "" Then Brr(i, 2) = Brr(i, 3)
    Next
    Range("f2:g" & nRow).Value = Brr
End Sub

缔造者

hlly888 发表于 2013-10-25 21:06

为什么在我的机子上程序运行的结果为：

缔造者

山菊花 发表于 2013-10-26 10:01
添加代码如下：
Sub tiqu()
    Dim ds, nRow%, n%, m%, Arr(), Brr()

正确！
对你的耐心、热情帮助，表示感谢！谢谢版主！

hlly888

缔造者 发表于 2013-10-26 11:03
为什么在我的机子上程序运行的结果为：

我用的是2013版，你用的其他版本的话，g 列可设置为其他日期格式。
还有，第二大值应该是我上传的图片中的值。

缔造者

hlly888 发表于 2013-10-26 14:01
我用的是2013版，你用的其他版本的话，g 列可设置为其他日期格式。
还有，第二大值应该是我上传的图片中 ...

偶用的是03版的，格式设置为“日期-2001-3-14 13:30”
第二大值那是我重新测试的数据。
谢谢！

hyefeifei

日期时间第二大值.rar (11.5 KB, 下载次数: 25)

2013-10-27 17:21 上传

点击文件名下载附件

缔造者

hyefeifei 发表于 2013-10-27 17:21

貌似舍去了最后的秒

hyefeifei

这么精细，还需要秒啊，在
把Format(r.Offset(, 1), "yyyy-mm-dd hh:nn")一句
改为Format(r.Offset(, 1), "yyyy-mm-dd hh:nn:ss")即可。

缔造者

hyefeifei 发表于 2013-10-28 12:47
这么精细，还需要秒啊，在
把Format(r.Offset(, 1), "yyyy-mm-dd hh:nn")一句
改为Format(r.Offset(, 1), ...

应用到10版时，为什么：arr2 = Split(Application.Index(arr, i), "a") 出现“类型不匹配”？

hyefeifei

缔造者 发表于 2013-10-28 14:32
应用到10版时，为什么：arr2 = Split(Application.Index(arr, i), "a") 出现“类型不匹配”？

我是10版，运行没问题，最好把附件传上来。