A列相同，B列去重跟A列用逗号合并输出到C列(B列里面同一个单元格有多个水果也分开...

zxsea_7426

练个手：

宏初学者

ykcbf1100 发表于 2024-9-2 18:20
VBA，去重一步到位就行了，没必要生成C列数据

附件供参考。。。

感谢感谢

宏初学者

gwjkkkkk 发表于 2024-9-2 19:08
...............

非常感谢，提高了工作效率

宏初学者

zxsea_7426 发表于 2024-9-2 19:34
练个手：

哈哈，给力，点赞，谢谢

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   End If
   sg = Split(arr(i, 2), "-")
   For j = 0 To UBound(sg)
      d(arr(i, 1))(sg(j)) = ""
   Next
Next
For Each kk In d.keys
   m = m + 1
   brr(m, 1) = kk
   For Each kk1 In d(kk).keys
      brr(m, 1) = brr(m, 1) & "," & kk1
   Next
Next
[e2].Resize(m, 1) = brr
End Sub

今铭昔

sdytsxd991122

sdytsxd991122

WPS