如何按户编号列出同一户的人

fgq5910

=IFERROR(INDEX($B$3:$B$72, SMALL(IF($D$3:$D$71=$F3, ROW($D$3:$D$71)-ROW($D$3)+1), COLUMN(A1))), "")

一杯绿茶来了

=TOROW(FILTER($B$3:$B$71,$D$3:$D$71=F3))

ming365

1. =TOROW(FILTER(B4:B72,F4=D4:D72))

复制代码

华发少年

新函数
户编号：=UNIQUE(D3:D71)
领取人：=TOROW(FILTER(B:B,D:D=F3,""),1,0)

华发少年

养老金发放表.rar (9.49 KB, 下载次数: 2)

2025-12-10 09:47 上传

点击文件名下载附件

华发少年

Sub test()
Dim ar As Variant
Dim br()
Dim i%
Dim d As Object
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 2).End(xlUp).Row
ar = [a1].Resize(r, 4)
ReDim br(1 To UBound(ar), 1 To 5)
For i = 3 To UBound(ar)
    s = ar(i, 4)
    If s <> "" Then
        t = d(s)
        If t = "" Then
            k = k + 1
            d(s) = k
            t = k
            br(k, 1) = s
        End If
        br(t, 2) = br(t, 2) + 1
        If br(t, 3) = "" Then
            br(t, 3) = ar(i, 2)
        Else
            br(t, 3) = br(t, 3) & "," & ar(i, 2)
        End If
    End If
Next i
For i = 1 To k
    rr = Split(br(i, 3), ",")
    For s = 0 To UBound(rr)
        br(i, s + 3) = rr(s)
    Next s
Next i
With [f1].CurrentRegion.Offset(2)
    .Value = Empty
    .Borders.LineStyle = 0
End With
With [f3].Resize(k, 5)
    .Value = br
    .Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

华发少年

vba完成，供参考
养老金发放表.rar (17.29 KB, 下载次数: 4)

2025-12-10 10:00 上传

点击文件名下载附件

jiaxianwa

yunguixiang 发表于 2025-12-9 23:12
谢谢高手，不是很懂，但是可以看出一点点原理

万金油公式

你是那块小饼干

1. =IFNA(DROP(REDUCE("",UNIQUE(D3:D71),LAMBDA(X,Y,LET(T,FILTER(B3:B71,Y=D3:D71),VSTACK(X,HSTACK(Y,ROWS(T),TOROW(T)))))),1),"")

复制代码

yunguixiang

fgq5910 发表于 2025-12-10 08:36
=IFERROR(INDEX($B$3:$B$72, SMALL(IF($D$3:$D$71=$F3, ROW($D$3:$D$71)-ROW($D$3)+1), COLUMN(A1))), "")

厉害，经过验证可以用，感谢大神