Бахтиёр, приветствую. Мне кажется, так буде несколько проще (сделал UDF). Впрочем, могу ошибаться
Код |
---|
Function tt(t As String) As String Dim col As Object, arr, i As Long Set col = CreateObject("scripting.dictionary") col.comparemode = Text arr = Split(t) For i = 0 To UBound(arr) If col.exists(arr(i)) Then arr(i) = "" Else col.Add arr(i), 0 Next tt = Join(arr) End Function |