着急求助

彬彬312 · 发表于 2024-10-30 15:31

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

boy8199 · 发表于 2024-10-30 15:36

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

boy8199 · 发表于 2024-10-30 15:53

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 · 发表于 2024-10-30 16:09

Sub qs()
Dim arr, i, dic
Set dic = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion.Value
For i = 2 To UBound(arr)
s = arr(i, 2)
a = Split(arr(i, 1), "楼")
s2 = a(0) & "楼"
If Not dic.exists(s) Then Set dic(s) = CreateObject("scripting.dictionary")
dic(s)(s2) = ""
Next
ReDim brr(1 To dic.Count, 1 To 2)
For Each k In dic.keys
m = m + 1
brr(m, 1) = k: brr(m, 2) = Join(dic(k).keys, "/")
Next
[d3].Resize(m, 2) = brr
Set dic = Nothing
End Sub

复制代码

mjm04 · 发表于 2024-10-30 16:17

本帖最后由 mjm04 于 2024-10-30 16:27 编辑

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))

松永 · 发表于 2024-10-30 16:50

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

大灰狼1976 · 发表于 2024-10-30 17:03

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

ww87725244 · 发表于 2024-10-30 17:12

Sub AA()
Dim ar, i, d, d1, k, ar1(), m, s
Set d1 = CreateObject("vbscript.regexp")
Set d = CreateObject("scripting.dictionary")
With d1
.Global = True
.Pattern = "\d+楼"
End With
With Sheet1
ar = .UsedRange
ReDim ar1(1 To UBound(ar), 1 To 2)
For i = 2 To UBound(ar)
s = d1.Execute(ar(i, 1))(0)
If Not d.exists(ar(i, 2)) Then
k = k + 1
ar1(k, 1) = ar(i, 2)
d(ar(i, 2)) = k & "/" & s
ar1(k, 2) = Split(d(ar(i, 2)), "/")(1)
d(ar(i, 2) & s) = ""
Else
If Not d.exists(ar(i, 2) & s) Then
m = Split(d(ar(i, 2)), "/")(0)
d(ar(i, 2) & s) = ""
ar1(m, 2) = ar1(m, 2) & "/" & d1.Execute(ar(i, 1))(0)
End If
End If
Next
.[f2].Resize(UBound(ar1), UBound(ar1, 2)) = ar1
End With
Set d = Nothing
Set d1 = Nothing
End Sub

复制代码

彬彬312 · 发表于 2024-10-30 17:32

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

太厉害了

		自动登录	找回密码
密码			免费注册