求查找编对对应的最大入库日期公式，感谢大神指点

lz79206966

查找最大入库日期.zip (61.61 KB, 下载次数: 13)

2024-8-4 11:35 上传

点击文件名下载附件

inrever

附件怎么和截图不一样

lz79206966

inrever 发表于 2024-8-4 11:31
附件怎么和截图不一样

修改附件了，感谢

inrever

lz79206966 发表于 2024-8-4 11:35
修改附件了，感谢

=MAP(C2:C34,LAMBDA(n,MAXIFS(B2:B6909,A2:A6909,n)))

无关岁月

1. =XLOOKUP(C2,A$2:A$6909,B$2:B$6909,,,-1)

复制代码

edwin11891

蒙一个（数据行数假定为100）：
=Groupby(A2:A100,B2:b100,Max)

quqiyuan

1. =MAXIFS(B:B,A:A,C2)

复制代码

咔咔乱坠

1. =LET(b,A2:A6909,a,UNIQUE(b),IF({1,0},a,XLOOKUP(a,b,B2:B6909,,,-1)))

复制代码

你是那块小饼干

1. =@SORT(FILTER($B$2:$B$6909,$A$2:$A$6909=C2,""),,-1)

复制代码

zhangcheng6688

学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a1:b" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      d(arr(i, 1)) = arr(i, 2)
   Else
      If d(arr(i, 1)) < arr(i, 2) Then
         d(arr(i, 1)) = arr(i, 2)
      End If
   End If
Next
lastr = Cells(Rows.Count, "c").End(xlUp).Row
brr = Range("c1:d" & lastr)
For i = 2 To UBound(brr)
   brr(i, 2) = d(brr(i, 1))
Next
Columns(3).NumberFormat = "@"
Columns(4).NumberFormat = "yyyy-m-d"
[c1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub