求教老师：如何按房间号提取人员姓名并横向排列

你是魔鬼吗

昨日暗影 发表于 2022-7-13 11:10
太牛了，这个看似简单，感觉更难

小白问一下，这个怎么使用啊

cdcxzj

=TEXTJOIN("、",1,IF(H:H=M4,B:B,"")) 可以找出同一房间的人，不过不是分列显示，而是合并在一列里面

zpy2

你是魔鬼吗 发表于 2022-7-13 15:13
小白问一下，这个怎么使用啊

8楼链接 参考一下

hhxq001

xiangbaoan 发表于 2022-7-13 09:01
回4楼，不想多灌水，但愿你能看到。
若格式不变，可不管数据的多寡。

牛牛牛。。。。

hhxq001

jany1312 发表于 2022-7-13 10:02
N4=IFERROR(INDEX(OFFSET(INDIRECT("B"&MATCH($M4,$H:$H,0)),,,COUNTIF($H:$H,$M4),),COLUMN(A:A)),"")

这个也很强大啊

hhxq001

jany1312 发表于 2022-7-13 10:02
N4=IFERROR(INDEX(OFFSET(INDIRECT("B"&MATCH($M4,$H:$H,0)),,,COUNTIF($H:$H,$M4),),COLUMN(A:A)),"")

看不到，能给讲一下吗

今日123

我也凑个试试看 代码如下
Sub 一维转二维()
Dim Arr, brr(), crr, i, k, s, dic As Object
Set dic = CreateObject("scripting.dictionary")
Arr = Sheet1.[a1].CurrentRegion
ReDim brr(1 To UBound(Arr, 1), 1 To UBound(Arr, 2) * 2)
For i = 2 To UBound(Arr, 1)
    s = Arr(i, 8)
    If Not dic.exists(s) Then
        k = k + 1
        dic(s) = k
        brr(k, 1) = Arr(i, 8)
        brr(k, 2) = Arr(i, 2)
    Else
        brr(dic(s), 2) = brr(dic(s), 2) & "|" & Arr(i, 2)
    End If
Next
For i = 1 To UBound(brr)
    crr = Split(brr(i, 2), "|")
    For k = 0 To UBound(crr)
        brr(i, k + 2) = crr(k)
    Next
Next
Range("m10").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

宝贝万岁

不建议直接发原件，还包含了不少个人信息，只做了简单的列隐藏，敏感信息最好还是删掉或模拟。

宝贝万岁

jany1312 发表于 2022-7-13 10:02
N4=IFERROR(INDEX(OFFSET(INDIRECT("B"&MATCH($M4,$H:$H,0)),,,COUNTIF($H:$H,$M4),),COLUMN(A:A)),"")

请问下，如果没有事先对房间号排序的话，有公式可以实现这种一对多的查询吗?

Andrewlpeng

可以用PQ,分组求和，再把公式中的Lise.Sum换成Text.Combine，将公式中的Lise.Sum换成Text.Combine，然后分列