Option Explicit
Sub abc()
Dim a, i, d
Set d = CreateObject("scripting.dictionary")
a = [a1].CurrentRegion.Resize(, 1).Value
For i = 2 To UBound(a)
d(Split(Split(a(i, 1), "【")(1), "】")(0)) = 1
Next
[c2].Resize(d.Count) = Application.Transpose(d.keys)
End Sub