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

昨日暗影

本人小白一个，请老师们指导一下，感激不尽：

问题：常驻人员花名册中，B列是姓名，H列是对应的房间号，因每个房间入住的人数是不一样的，请问如何实现按房间号提取姓名并横向的排列呢？最终想要实现的效果如附件;

xiangbaoan

1. Sub test1()
   
2.   Dim ar, Dict As Object, i As Long, s As String
   
3.   Dim RowSize As Long, ColSize As Long, posCol As Long, posRow As Long
   
4.   Set Dict = CreateObject("Scripting.Dictionary")
   
5.   ar = Range("B2", Cells(Rows.Count, "H").End(xlUp))
   
6.   ReDim vResult(1 To UBound(ar), 1 To UBound(ar)) As String
   
7.   RowSize = 1
   
8.   vResult(RowSize, 1) = ar(1, UBound(ar, 2))
   
9.   For i = 2 To UBound(ar)
   
10.     s = ar(i, UBound(ar, 2))
    
11.     If Not Dict.Exists(s) Then
    
12.       RowSize = RowSize + 1
    
13.       vResult(RowSize, 1) = s
    
14.       vResult(RowSize, 2) = ar(i, 1)
    
15.       Dict(s) = Array(RowSize, 3)
    
16.     Else
    
17.       posRow = Dict(s)(0)
    
18.       posCol = Dict(s)(1)
    
19.       vResult(posRow, posCol) = ar(i, 1)
    
20.       Dict(s) = Array(posRow, posCol + 1)
    
21.       If posCol > ColSize Then ColSize = posCol
    
22.     End If
    
23.   Next
    
24.   With Range("M3")
    
25.     .CurrentRegion.ClearContents
    
26.     .Resize(RowSize, ColSize) = vResult
    
27.   End With
    
28.   Set Dict = Nothing
    
29.   Beep
    
30. End Sub

复制代码

xiangbaoan

常驻人员花名册.zip (39.78 KB, 下载次数: 29)

2022-7-13 09:01 上传

点击文件名下载附件

回4楼，不想多灌水，但愿你能看到。
若格式不变，可不管数据的多寡。

昨日暗影

xiangbaoan 发表于 2022-7-13 09:00

哇，好惊奇哦，VBA分分钟搞定，大神就是大神，可惜我看不懂，可是，花名册的人员名单会越来越多，不知道到时此段代码要怎么修改

昨日暗影

我有用过数据透视表，可是做出来的效果是，人员姓名是竖向排列的，没达到想要的效果，不知道还有没有更好的办法

昨日暗影

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

好的，谢谢老师

昨日暗影

请问一下老师们，不用VBA能否实现呢

zpy2

昨日暗影 发表于 2022-7-13 09:27
请问一下老师们，不用VBA能否实现呢

select `楼栋/房间号`,group_concat(姓名,'</td><td>') 人员名单 from 基础分类二列多行转多列二维表 group by `楼栋/房间号`;


11楼在线sql

jany1312

N4=IFERROR(INDEX(OFFSET(INDIRECT("B"&MATCH($M4,$H:$H,0)),,,COUNTIF($H:$H,$M4),),COLUMN(A:A)),"")

昨日暗影

zpy2 发表于 2022-7-13 09:54
select `楼栋/房间号`,group_concat(姓名,'') 人员名单 from 基础分类二列多行转多列二维表 group by `楼 ...

太牛了，这个看似简单，感觉更难