разбор текста

[kinogruppa]

Здравствуйте
На форуме нашла удобный макрос, сорри что не записала кто его предоставил и не высказала слова благодарности, но... Макрос срабатывает странным образом. Пример прилагаю. Помогите преодолеть проблему и объясните в чем фишка? Почему разбор происходит то с запятой, то с пробелом? Проблему пробелов преодолею функцией, а вот с запятыми не получилось справиться

[doober]

посмотрите отличие кода для разбора по запятым и по пробелу.Вы все поймете
Обратите внимание на
Selection.TextToColumns Comma:=True

Selection.TextToColumns Space:=True

[kinogruppa]

Разницу в разборе по запятой и пробелу я знаю еще по штатным возможностям Excel подскажите как в итоговых ячейках убрать запятую. Штатыми способами не получается.
На форуме нашла макрос обещающий убрать запятые и точки в выделенном фрагменте. Но он У МЕНЯ не срабатывает. Наверно что-то делаю не так.
Privat Sud CommandButton2_Click ()
Sub qq()
With ActiveSheet.UsedRange
arr = .Value
.Value = arr
End With
End Sub
В конечном результате хотелось бы убрать запятые и убрать дубликаты

[doober]

Я Вас не понял,исправляюсь.
Функция Replace возвращает строку, в которой одна последовательность символов заменена на другую указанное количество раз.
пример использования во вложении

[EugeneS]

не совсем понял проблему, но попробуйте во вложенном файле выделить ячейку с текстом и нажать кнопку Старт