求同一ID下最大值

lovelfg

如图所示的表格，有若干ID，同一ID出现多次，则想要找出该ID下最大的日期，在C列标为"max"，最小的标为"min"
如若不想引用sql语句，怎么做最简单呢？

苏小亓

直接透视即可。

pjiang

range 的union方法+max/min

lovelfg

苏小亓 发表于 2020-9-27 15:18
直接透视即可。

数据透视还需要新建一个表，在标示max和min的时候还需要对比回去，感觉还是挺麻烦的

lovelfg

pjiang 发表于 2020-9-27 15:23
range 的union方法+max/min

可以再详细的说说吗？

笨鸟飞不高

新建 Microsoft Excel 工作表.zip (14.59 KB, 下载次数: 29)

2020-9-27 15:43 上传

点击文件名下载附件

我是来讨说法的

C2单元格三键公式，下拉
=IF(MAX(IF($A$2:$A$23=A2,$B$2:$B$23))=B2,"MAX",IF(MIN(IF($A$2:$A$23=A2,$B$2:$B$23))=B2,"MIN",""))

lovelfg

笨鸟飞不高 发表于 2020-9-27 15:44

高人！这个方法很牛

3190496160

Sub test()
Set d = CreateObject("scripting.dictionary")
With Sheet1
    ar = .[a1].CurrentRegion
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = ""
        End If
    Next i
    For Each k In d.keys
        n = 0
        ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) = k Then
                n = n + 1
                For j = 1 To UBound(ar, 2)
                    br(n, j) = ar(i, j)
                Next j
            End If
        Next i
        For i = 1 To n
            For s = i + 1 To n
                If DateValue(br(i, 2)) < DateValue(br(s, 2)) Then
                    For j = 1 To UBound(br, 2)
                        kk = br(i, j)
                        br(i, j) = br(s, j)
                        br(s, j) = kk
                    Next j
                End If
            Next s
        Next i
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) = k And DateValue(ar(i, 2)) = DateValue(br(1, 2)) Then
                ar(i, 3) = "max"
            ElseIf Trim(ar(i, 1)) = k And DateValue(ar(i, 2)) = DateValue(br(n, 2)) Then
                ar(i, 3) = "min"
            End If
        Next i
    Next k
    .[a1].CurrentRegion = ar
End With
End Sub

3190496160

新建 Microsoft Excel 工作表.zip (15.64 KB, 下载次数: 2)

2020-9-27 16:02 上传

点击文件名下载附件