EXCEL VBA的代碼,去除重復？

Function 去重(a As String)

b = Split(a, " ")

For Each cel In b

n = Split(去重, " ")

m = 0

For i = 0 To UBound(n)

If cel = n(i) Then m = m + 1

Next

If m = 0 Then 去重 = 去重 & " " & cel

Next

End Function