круто  
это не excel  
это полиграфия  
кстати, то что отправляется на печать и то что на экране это разные вещи  
вам для экрана или печати?

Можно хоть в попугаях измерять :)  
1 буква = 1 байт (Не верите? http://www.rusedu.info/Article562.html)  
И что, теперь лучше печатать с таким знанием?  
>>Есть ли формула которая будет разбивать текст так?  
Вы уже дали ответ в ячейках J6 - J7  
Отрезать часть строки, если не влазит, во второй ячейке проверять, что не влезло в первую и т.д.  
Ваш вопрос на самом деле такой: Как определить сколько символов видно при определенных ширине столбца и высоте строки? Как определить, что в =ПСТР(D6;1;9) нужно 7, а не 9 писать?  
И формулами это не решить. UDF или макрос.

ИМХО - открыл Ваш файл, посмотрел и скажу что неблагодарное это дело. Вы используете Arial и этот шрифт имеет различную ширину символа в алфавите и в зависимости от кол-ва заглавных и прописных и т.д. и т.п.  
Можно пользоваться моноширинным шрифтом, например, Courier New. В нем ширина всех символов одинакова и возможно их посчитать. Однако это действительно до момента пока не смените его размер (шрифта).

{quote}{login=Igor67}{date=16.12.2009 10:04}{thema=}{post}ИМХО - открыл Ваш файл, посмотрел и скажу что неблагодарное это дело. Вы используете Arial и этот шрифт имеет различную ширину символа в алфавите и в зависимости от кол-ва заглавных и прописных и т.д. и т.п.  
Можно пользоваться моноширинным шрифтом, например, Courier New. В нем ширина всех символов одинакова и возможно их посчитать. Однако это действительно до момента пока не смените его размер (шрифта).{/post}{/quote}  
Igor_67, большое спасибо, Ваш вариант мне очень даже подходит,все как всегда до смешного просто. А моя привычка все усложнять наченает меня уже потихоньку доставть :).  
Уважаемый VovaK, в моей ситуации не льзя было менять ни ширину(или высоту наверное правельно), ни длинну ячейки в этом то и вся "закавыка"-все границы фиксированной длинны.  
Всем спасибо.

"Переносить по словам" в данном примере не работает, а если бы господа взяли бы за труд посмотреть, то увидели бы, что галка стоит.  
А не работает из-за отсутствия пробелов - эксель считает, что слов нет. И верно считает :)  
 
Муторное это дело. Нужно:  
1. Моноширный шрифт (как уже верно посоветовали)  
2. Его размер.  
3. Ширина ячейки.  
4. Функция зависимости ширины символа от размера шрифта.  
 
Все это несложно, но муторно.  
 
Вариант 2.  
1. Знаем ширину ячейки в пикселах (х) и текст в ней .  
2. На отдельном листе помещаем текст в А1 и делаем Range("A1").EntireColumn.AutoFit  
3. Циклом уменьшаем на один символ и снова автофит.  
4. На выходе имеем текст в А1 и В1.  
 
x = 10  
Range("A1").Value = "длинный текст для разбивки"  
Range("A1").EntireColumn.AutoFit  
Do While Range("A1").ColumnWidth > x  
 Range("B1").Value = Right(Range("A1").Value, 1) & Range("B1").Value  
 Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - 1)  
 Range("A1").EntireColumn.AutoFit  
Loop