求助查找多条记录中最后一条记录公式

glhdex

注：根据人编号（人编号是唯一的，有的是16位），查找该人编号对应的最下面（或是唯一的）姓名的务工地址？ 求助查找公式.rar (10.71 KB, 下载次数: 20)

2024-10-2 06:44 上传

点击文件名下载附件

我的城市你来过

=REDUCE(A4:C4,UNIQUE(A5:A33),LAMBDA(x,y,VSTACK(x,HSTACK(y,LET(a,FILTER(B5:C33,A5:A33=y),DROP(a,COUNTA(a)/2-1))))))

glhdex

我的城市你来过 发表于 2024-10-2 07:20
=REDUCE(A4:C4,UNIQUE(A5:A33),LAMBDA(x,y,VSTACK(x,HSTACK(y,LET(a,FILTER(B5:C33,A5:A33=y),DROP(a,COUNT ...

谢谢！公式粘贴到excel函数无效，可以写一个通用的公式吗

glhdex

我的城市你来过 发表于 2024-10-2 07:20
=REDUCE(A4:C4,UNIQUE(A5:A33),LAMBDA(x,y,VSTACK(x,HSTACK(y,LET(a,FILTER(B5:C33,A5:A33=y),DROP(a,COUNT ...

公式粘贴到excel函数无效，可以写一个通用的吗，谢谢

zhangcheng6688

学习一下字典
Sub test()
arr = [a3].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   End If
   d(arr(i, 1))(arr(i, 2)) = arr(i, 3)
Next
brr = [e3].CurrentRegion
For i = 3 To UBound(brr)
   If d.exists(brr(i, 1)) Then
      If d(brr(i, 1)).exists(brr(i, 2)) Then
         brr(i, 3) = d(brr(i, 1))(brr(i, 2))
      Else
         brr(i, 3) = ""
      End If
   Else
      brr(i, 3) = ""
   End If
Next
Columns("e").NumberFormat = "@"
[e3].CurrentRegion = brr
End Sub

glhdex

我的城市你来过 发表于 2024-10-2 07:20
=REDUCE(A4:C4,UNIQUE(A5:A33),LAMBDA(x,y,VSTACK(x,HSTACK(y,LET(a,FILTER(B5:C33,A5:A33=y),DROP(a,COUNT ...

excel用不了这个公式，帮写一个通用的，谢谢

quqiyuan

1. =INDEX(C:C,MAX(IF(E5=$A$5:$A$33,ROW($A$5:$A$33))))

复制代码

glhdex

quqiyuan 发表于 2024-10-2 07:49

你的公式结果不对，帮再看下

quqiyuan

glhdex 发表于 2024-10-2 07:55
你的公式结果不对，帮再看下

哪里问题？你具体说一下。。

glhdex

quqiyuan 发表于 2024-10-2 07:58
哪里问题？你具体说一下。。

我的结果咋不对呢？