着急求助

彬彬312

如何把B列同一个人在对应Al列在信息汇总在一起

boy8199

分解:排序,如果楼层都在前面 就在辅助列里截取楼层, 然后 数据透视表 然后 合并

boy8199

231:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
232:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
233:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
235:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
236:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
894:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
56临时卡:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
BIM二期:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
BIM二期2:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
BIM二期3:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
BIM二期4:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
BIM二期5:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
艾力西·阿不都克里木:11楼/01楼/02楼/4楼
包菁:01楼/02楼/4楼/5楼/9楼
宝盛洗涤公司:01楼/23楼/02楼/3楼/4楼/5楼
鲍震宇:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
备用1:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
备用2:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
蔡昊呈:19楼/01楼/21楼/22楼/02楼/4楼
蔡辉:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
蔡晶晶:15楼/01楼/02楼/4楼
蔡炬波:15楼/01楼/02楼/4楼
蔡巍:11楼/01楼/02楼/3楼/4楼/5楼
曹箭淼:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
曹宇嫣:19楼/01楼/21楼/22楼/02楼/4楼
曹月林:19楼/01楼/21楼/22楼/02楼/4楼
测试:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
曾丹丹:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
曾秋宇:16楼/17楼/18楼/01楼/02楼/4楼/7楼
曾志宏:19楼/01楼/21楼/22楼/02楼/3楼/4楼/5楼
曾中山:15楼/01楼/02楼/4楼/5楼
柴亦哲:11楼/01楼/02楼/4楼/9楼
产业大数据公共卡1:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
产业大数据公共卡2:11楼/12楼/15楼/16楼/17楼/18楼/19楼/01楼/21楼/22楼/23楼/02楼/3楼/4楼/5楼/6楼/7楼/8楼/9楼
陈爱莲:11楼/01楼/02楼/4楼
陈彬:19楼/01楼/21楼/22楼/02楼/4楼/5楼

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.[a1].CurrentRegion.Value
   
5. For i = 2 To UBound(arr)
   
6.     s = arr(i, 2)
   
7.     a = Split(arr(i, 1), "楼")
   
8.     s2 = a(0) & "楼"
   
9.     If Not dic.exists(s) Then Set dic(s) = CreateObject("scripting.dictionary")
   
10.        dic(s)(s2) = ""
    
11. 
    
12. Next
    
13. ReDim brr(1 To dic.Count, 1 To 2)
    
14. For Each k In dic.keys
    
15.     m = m + 1
    
16.     brr(m, 1) = k: brr(m, 2) = Join(dic(k).keys, "/")
    
17. Next
    
18. [d3].Resize(m, 2) = brr
    
19. Set dic = Nothing
    
20. End Sub
    

复制代码

mjm04

WPS 可用，一步到位的； 只是把 / 分隔换成 逗号 分隔（写 / 分隔有些麻烦）



=LET(_去重,UNIQUE(HSTACK(B2:B42743,REGEXP(A2:A42743,"\d+楼"))),_1,CHOOSECOLS(_去重,1),_2,CHOOSECOLS(_去重,2),GROUPBY(_1,_2,ARRAYTOTEXT))


========================================================
如果要对 各个姓名下的 楼数进行排序，用下面这个，加了排序函数

=LET(_去重,SORT(UNIQUE(HSTACK(B2:B42743,REGEXP(A2:A42743,"\d+")*1)),2,1),_1,CHOOSECOLS(_去重,1),_2,CHOOSECOLS(_去重,2)&"楼",GROUPBY(_1,_2,ARRAYTOTEXT))

松永

水平不高，VBA写的繁琐，看下可否满足要求。

大灰狼1976

有没有得到你想要的答案了，如果有了，我会删除你另一个帖，因为内容重复。

ww87725244

1. Sub AA()
   
2. Dim ar, i, d, d1, k, ar1(), m, s
   
3. Set d1 = CreateObject("vbscript.regexp")
   
4. Set d = CreateObject("scripting.dictionary")
   
5. With d1
   
6.     .Global = True
   
7.     .Pattern = "\d+楼"
   
8. End With
   
9. With Sheet1
   
10.     ar = .UsedRange
    
11.     ReDim ar1(1 To UBound(ar), 1 To 2)
    
12.     For i = 2 To UBound(ar)
    
13.         s = d1.Execute(ar(i, 1))(0)
    
14.         If Not d.exists(ar(i, 2)) Then
    
15.             k = k + 1
    
16.             ar1(k, 1) = ar(i, 2)
    
17.             d(ar(i, 2)) = k & "/" & s
    
18.             ar1(k, 2) = Split(d(ar(i, 2)), "/")(1)
    
19.             d(ar(i, 2) & s) = ""
    
20.         Else
    
21.             If Not d.exists(ar(i, 2) & s) Then
    
22.                 m = Split(d(ar(i, 2)), "/")(0)
    
23.                 d(ar(i, 2) & s) = ""
    
24.                 ar1(m, 2) = ar1(m, 2) & "/" & d1.Execute(ar(i, 1))(0)
    
25.             End If
    
26.         End If
    
27.     Next
    
28.     .[f2].Resize(UBound(ar1), UBound(ar1, 2)) = ar1
    
29. End With
    
30. Set d = Nothing
    
31. Set d1 = Nothing
    
32. End Sub
    

复制代码

彬彬312

松永 发表于 2024-10-30 16:50
水平不高，VBA写的繁琐，看下可否满足要求。

太厉害了