求助！删除一个格子内重复的文字

如果数据少于16384行可以用以下方法：
第一步：分列
第二步：复制数据然后转置
第三步：使用数据>数据工具中的“删除重复项”
第四步：将数据再次转置回来，然后复制到记事本中，查找制表符替换成逗号
第五步：将数据复制回表格

Option Explicit
Sub abc()
　Dim i, j, t, a, d
　a = [a1].CurrentRegion.Offset(1).Resize(, 1).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a) - 1
　　t = Split(Replace(a(i, 1), Space(1), vbNullString), ",")
　　For j = 0 To UBound(t)
　　　If Len(t(j)) Then d(t(j)) = 1
　　Next
　　a(i, 1) = Join(d.keys, ","): d.RemoveAll
　Next
　[b2].Resize(UBound(a) - 1) = a
End Sub

Option Explicit
Sub abc()
　Dim i, j, t, a, d
　a = Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a)
　　t = Split(Replace(a(i, 1), Space(1), vbNullString), ",")
　　For j = 0 To UBound(t)
　　　If Len(t(j)) Then d(t(j)) = 1
　　Next
　　a(i, 1) = Join(d.keys, ","): d.RemoveAll
　Next
　[b2].Resize(UBound(a)) = a
End Sub