UDF, т.е. макросы должны быть разрешены.

Так?  
 
 
К сообщению прикреплен файл: post_363447.xlsx  
 
Да! Так! Спасибо огромное!  
Теперь бы осознать как эту формулу в мою таблицу перенести... Мозг рвётся на куски :))

Простите, моя формула "жрёт" текст после последнего пробела, если нет задвоения. :о((

И ещё съедает значения если оно в предложении без повтора... :(

Скажите, а удаляемый текст всегда будет полностью после запятойб т.е. всё, что после последней запятой ищем и удаляем.Так?

да, и ещё к этому два условия, которые забыл упомянуть:  
1. После ПОСЛЕДНЕЙ запятой (кстати, м.б. что-нить типа <<абвгд, 0,4 мм>>, где нужно удалить <<0,4 мм>>)? Я к тому, можно ли считать последнюю запятую неким ключевым символом или нет?  
2. Удаляем только в случае наличия повторения во фразе фрагмента.

У Вас офис 10-ка или моложе. Просто от этого зависит количество вложений

У меня Mac. Excel 14.2.3

Кстати, проверку можно убрать:  
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B3;ПРАВСИМВ(B3;ДЛСТР(B3)-ПРОСМОТР(100;1/(ПСТР(B3;СТРОКА(A$1:A$99);1)=",");СТРОКА(A$1:A$99))-(ПСТР(B3;ПРОСМОТР(100;1/(ПСТР(B3;СТРОКА(A$1:A$99);1)=",");СТРОКА(A$1:A$99))+1;1)=" "));;1))

Регулярная борьба с пробелами :))  
 
Dim re As Object  
 
Function Zmey(s As String) As String  
Dim s1$, s2$, i&, ptrn$, s3$  
i = InStrRev(s, ",")  
If i Then  
   s1 = Left$(s, i)  
   s2 = Mid$(s, i + 1)  
   s3 = Replace$(s2, " ", "")  
   For i = 1 To Len(s3)  
       ptrn = ptrn & " ?" & Mid$(s3, i, 1)  
   Next  
   ptrn = Mid$(ptrn, 3)  
   If re Is Nothing Then Set re = CreateObject("vbscript.regexp")  
   re.Pattern = ptrn  
   Zmey = Application.Trim(re.Replace(s1, "")) & s2  
Else: Zmey = s  
End If  
End Function

По моим наблюдениям, "сборщик мусора" в VBA работает вполне надежно: объект уничтожается, как только ни одна переменная не содержит ссылку на него.  
Если в Вашем случае XYZ - переменная этой процедуры и она не объявлена как Static, переменная исчезнет при End Sub, а вместе с ней - объект.  
В моем случае я намеренно объявил переменную re в модуле, чтобы она сохранялась (и вместе с ней объект) между вызовами функции - чтобы не создавать объект каждый раз. Здесь объект существует, пока открыта книга, или пока проект VBA не перекомпилирован.  
 
Другое дело - если объект является самостоятельным приложением. Тогда объектная переменная указывает на некий интерфейс приложения (API), который существует автономно. Вот пример:  
 
Sub dd()  
Dim a As Object, b As Object, c As Object, d As Object  
1 Set a = CreateObject("vbscript.regexp")  
2 Set b = GetObject(, "vbscript.regexp") 'Error 429  
 
3 Set c = CreateObject("word.application")  
4 Set d = GetObject(, "word.application")  
5 Debug.Print c Is d 'True  
6 Debug.Print c.Name 'Microsoft Word  
7 c.Quit  
8 Debug.Print c Is Nothing 'False  
9 Debug.Print c Is d 'True  
10 Debug.Print c.Name 'Error 462  
 
End Sub  
 
1,2 - создаем "простой" объект, пытаемся подключиться к его интерфейсу - не получается.  
3,4 - создаем объект-приложение, подключаемся к его интерфейсу. Теперь переменные c,d указывают на один и тот же объект (5).  
_Примечание:_ до этого Word не должен быть запущен. Команда (4) подключит переменную к любому из экземпляров запущенного приложения, если их несколько.  
7 - завершение приложения.  
8 - Но переменная продолжает указывать на нечто (интерфейс?).  
10- Однако, свойства объекта уже недоступны.  
 
Если в данном случае выполнить команды  
Set c=Nothing: Set d=Nothing  
, но не выполнить c.Quit, то связь с объектом будет разорвана, НО приложение останется работать и занимать память - это видно в диспетчере задач.  
Так что разрывать связь ИМХО необязательно, а вот завершать приложение - очень важно.

\