Это конечно все понятно, но мне не подходит, тк. мне нужно разделить текст там где запятая пробел и следуещее слово начинается с большой буквы, а если после зщапятой стоит маленькая буква то не нужно делить, а писать все в одну строку, и мне нужно с помощью формулы, что бы автоматически это делалась при подставлении текста в ячейку.

Sub test()  
   Dim st As String  
   Dim r As Integer, j As Integer  
   Dim arr()  
   st = ActiveCell  
   j = 0  
   For r = Len(st) To 3 Step -1  
       If Asc(Mid(st, r, 1)) >= 192 And Asc(Mid(st, r, 1)) <= 223 Then  
           If Mid(st, r - 2, 2) = ", " Then  
               ReDim Preserve arr(j)  
               arr(j) = Right(st, Len(st) - r + 1)  
               st = Left(st, r - 3)  
               j = j + 1  
               r = r - 2  
           End If  
       End If  
   Next r  
   ReDim Preserve arr(j)  
   arr(j) = st  
   For j = UBound(arr) To LBound(arr) Step -1  
       ActiveCell.Offset(0, UBound(arr) - j + 1) = arr(j)  
   Next j  
End Sub

{quote}{login=nerv}{date=12.07.2011 10:24}{thema=Re: Re: }{post}{quote}{login=Tanya1}{date=12.07.2011 09:57}{thema=Re: }{post}Это конечно все понятно, но мне не подходит, тк. мне нужно разделить текст там где запятая пробел и следуещее слово начинается с большой буквы, а если после зщапятой стоит маленькая буква то не нужно делить, а писать все в одну строку, и мне нужно с помощью формулы, что бы автоматически это делалась при подставлении текста в ячейку.{/post}{/quote}как только вы добавите текст в ячейку, формула (из этой ячейки) удалиться.{/post}{/quot  
Формула будет стоять в другой ячейке и ссылаться на ячейку где будет меняться текст

webley спасибо большое с помощью макроса все работает, но дело в том, что    
данные разделения будут происходить на скрытом листе, и мне нужно что бы при подставлении текста в ячейку А1 на листе 1, на скрытом листе 2 выполнялось разделение текста, можно ли что то сделать что бы макрос работал на скрытом листе?  
именно поэтому я думала может с помощью формулы можно сделать разделение...

{quote}{login=webley}{date=12.07.2011 10:41}{thema=}{post}а почему вы считаете, что он не будет работать на скрытом листе?{/post}{/quote}  
Строку ActiveCell.Offset(0, UBound(arr) - j + 1) = arr(j) придется подправить.

формула в желтой ячейке, текст в зеленой... если я ни чего не напутал : )

udf  
 
Function TextPart(st As String, partN As Integer)  
   Dim r As Integer, j As Integer  
   Dim arr()  
   j = 0  
   For r = Len(st) To 3 Step -1  
       If Asc(Mid(st, r, 1)) >= 192 And Asc(Mid(st, r, 1)) <= 223 Then  
           If Mid(st, r - 2, 2) = ", " Then  
               ReDim Preserve arr(j)  
               arr(j) = Right(st, Len(st) - r + 1)  
               st = Left(st, r - 3)  
               j = j + 1  
               r = r - 2  
           End If  
       End If  
   Next r  
   ReDim Preserve arr(j)  
   arr(j) = st  
   If partN > j + 1 Then  
       TextPart = ""  
   Else  
       TextPart = arr(j + 1 - partN)  
   End If  
End Function

webley вы гений, спасибо вам огромное, вы мне очень очень помогли.  
Спасибо!!!!!

{quote}{login=Владимир}{date=12.07.2011 12:07}{thema=}{post}У избушечников спёр..    
:){/post}{/quote}А сам вроде не из их лагеря:-)