如何去重？见付表

ablebcz大雨

如公式：=TEXTJOIN("、",,FILTER(E2:E9,D2:D9=A2))

返回的结果中，有的数据是一样的，只是重复的次数很多，怎么去重？谢谢

苏小亓

=TEXTJOIN("、",,UNIQUE(FILTER(E2:E9,D2:D9=A2)))

zhangcheng6688

学习一下字典
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To 10000, 1 To 2)
For i = 2 To UBound(arr)
   jg = Split(arr(i, 2), "、")
   For j = 0 To UBound(jg)
      If Not d.exists(jg(j)) Then
         m = m + 1
         brr(m, 1) = arr(i, 1)
         brr(m, 2) = jg(j)
         d(jg(j)) = ""
      End If
   Next
   d.RemoveAll
Next
[d1].CurrentRegion.Offset(1).ClearContents
[d2].Resize(m, 2) = brr
End Sub