查找后合并

风雨相随3

查找前十位相同，返回十位之后的字符按顺序串起来-Excel函数与公式-ExcelHome技术论坛 -，最好是自定义函数。

ynzsvt

最好有个样本，要有已知数据，有自定义的公式的文本（公式等号前加'）及期望结果在公式的右侧单元格。

cidanji

LIUZHU

这是要VBA代码，还是要函数？发到VBA板块了？

ykcbf1100

提取汇总，用了数组排序

附件供参考。。。

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

复制代码