查找前十位相同，返回十位之后的字符按顺序串起来

风雨相随3

查找前十位相同，返回十位之后的字符按顺序串起来 查找前十位相同，返回十位之后的字符按顺序串起来.rar (8.75 KB, 下载次数: 23)

2024-6-24 12:28 上传

点击文件名下载附件

part98

1. =TEXTJOIN(",",,SORT(FILTER(MID($A$2:$A$12,11,9),LEFT($A$2:$A$12,10)=LEFT(A2,10))))

复制代码

huaichuan1

=TEXTJOIN(",",1,IF(MID($A$2:$A$12,1,10)=MID(A2,1,10),MID($A$2:$A$12,11,10),""))

hxj119

=TEXTJOIN(",",,IF(LEFT(A2,10)=LEFT($A$2:$A$12,10),MID($A$2:$A$12,11,9),""))

mjm04

高版本：
B2单元格
=MAP(A2:A12,LAMBDA(_名称,TEXTJOIN("，",,FILTER(MAP($A$2:$A$12,LAMBDA(_十位后,REGEXP(_十位后,"(?<=[\d+.?]{10}).+"))),MAP($A$2:$A$12,LAMBDA(_前十位,REGEXP(_前十位,"^[\d+.?]{10}")))=LEFTB(_名称,10)))))

风雨相随3

hxj119 发表于 2024-6-24 13:01
=TEXTJOIN(",",,IF(LEFT(A2,10)=LEFT($A$2:$A$12,10),MID($A$2:$A$12,11,9),""))

查找前十位相同，返回十位之后的字符按顺序串起来.rar (8.93 KB, 下载次数: 1)

2024-6-24 13:14 上传

点击文件名下载附件

没有按字母顺序。

我的城市你来过

=ARRAYTOTEXT(UNIQUE(MAP(LET(x,$A$2:$A$12,FILTER(x,MAP(x,LAMBDA(x,REGEXP(x,LEFT($A2,10),1))))),LAMBDA(y,REGEXP(y,"[A-Z-]+")))))

hxj119

更新公式：
=TEXTJOIN(",",,SORT(IF(LEFT(A2,10)=LEFT($A$2:$A$12,10),MID($A$2:$A$12,11,9),"")))

ykcbf1100

VBA，提取汇总

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.24
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     r = Cells(Rows.Count, "a").End(3).Row
   
5.     arr = [a2].Resize(r - 1, 2)
   
6.     sort2 arr, 1, 1
   
7.     For i = 1 To UBound(arr)
   
8.         s = Left(arr(i, 1), 10)
   
9.         s2 = Mid(arr(i, 1), 11)
   
10.         If Not d.exists(s) Then
    
11.             d(s) = s2
    
12.         Else
    
13.             d(s) = IIf(InStr(d(s), s2), d(s), d(s) & "，" & s2)
    
14.         End If
    
15.     Next
    
16.     For i = 1 To UBound(arr)
    
17.         s = Left(arr(i, 1), 10)
    
18.         s2 = Mid(arr(i, 1), 11)
    
19.         If d.exists(s) Then
    
20.             Cells(i + 1, 2) = d(s)
    
21.         End If
    
22.     Next
    
23.     Set d = Nothing
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub

复制代码