以B2：B12为对比，向下对比数据（数据会增加），遇到不一样的单元格，合并数据

蒋智龙

以B2：B12为对比，向下对比数据（数据会增加），遇到不一样的单元格，合并数据，输出到工作表2的同位置，关键如红标部位，已有数据忽略，合并不一样的数据，并用、符号隔开，并且合并单元格特殊标注颜色

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.27
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set d1 = CreateObject("Scripting.Dictionary")
   
4.     arr = Sheets("Sheet1").UsedRange
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For i = 4 To UBound(arr)
   
7.         s = arr(i, 2)
   
8.         If Not d.exists(s) Then
   
9.             m = m + 1
   
10.             d(s) = m
    
11.             brr(m, 1) = m
    
12.             For j = 2 To UBound(arr, 2)
    
13.                 brr(m, j) = arr(i, j)
    
14.             Next
    
15.         Else
    
16.             r = d(s)
    
17.             brr(r, 3) = brr(r, 3) & "、" & arr(i, 3)
    
18.             brr(r, 4) = brr(r, 4) & "、" & arr(i, 4)
    
19.             brr(r, 5) = brr(r, 5) & "、" & arr(i, 5)
    
20.         End If
    
21.     Next
    
22.     On Error Resume Next
    
23.     For i = 1 To UBound(brr)
    
24.         For j = 3 To 5
    
25.             d1.RemoveAll: st = ""
    
26.             b = Split(brr(i, j), "、")
    
27.             For x = 0 To UBound(b)
    
28.                 d1(CStr(b(x))) = ""
    
29.             Next
    
30.             brr(i, j) = Join(d1.keys, "、")
    
31.         Next
    
32.     Next
    
33.     With Sheets("Sheet2")
    
34.         .UsedRange.ClearContents
    
35.         .[a4].Resize(m, UBound(arr, 2)) = brr
    
36.     End With
    
37.     MsgBox "OK！"
    
38. End Sub
    

复制代码

扇扇扇

题目没读懂，想练习下都难

蒋智龙

ykcbf1100 发表于 2024-8-27 10:21
附件供参考。。。

计算完全符合要求，还有个小问题就是加入对比的参数里面有值，下个没有是/符号，可以不可以把/符号取消不合并进数值

蒋智龙

扇扇扇 发表于 2024-8-27 10:29
题目没读懂，想练习下都难

感谢关注,楼上的大神输出的结果满足要求，就是遇到/符号能不能不合并进数值内

ykcbf1100

蒋智龙 发表于 2024-8-27 10:36
计算完全符合要求，还有个小问题就是加入对比的参数里面有值，下个没有是/符号，可以不可以把/符号取消不 ...

没搞懂啥意思

蓝桥玄霜

对比的例子：

蒋智龙

ykcbf1100 发表于 2024-8-27 10:48
没搞懂啥意思

就是合并数据同位置都是/就只要显示1次，如果有一个数字就显示数值不再显示/符号

蒋智龙

蓝桥玄霜 发表于 2024-8-27 10:58
对比的例子：

能直接传下代码吗