Как убрать перенос строки в ячейках

[chib_sv]

Добрый день! Подскажите как в VBA убрать перенос строки в ячейках, если в этих ячеках больше 15 любых симворов, но только чтобы между словами оставался пробел. Спасибо!

[IgorGO]

Sub Макрос1()
  r = 1: c = 1
  Cells(r, c).WrapText = Len(Cells(r, c)) < 16
End Sub

[chib_sv]

спасибо, за оперативность, не срабатывает так. Надо примерно как в примере.

[IgorGO]

не срабатывает так

и не удивительно. в эксель 2007 1048576 строк и 16384 колонок.
я в одной, взятой наугад, изменил режим переноса слов. шансов попасть в необходимую Вам ячейку было приблизительно 1 / 17 млрд. ну... не угадал.

но с Вашим-то примером (в котором теперь ВСЕ ВСЕМ ясно) сейчас обрушится швал точных решений... ждите

[chib_sv]

спасибо за подсказку, как убрать перенос строки в отдельно взятой ячейке понял, но все же если не затруднит... как убрать перенос только в столбце B:B?

[IgorGO]

три сообщения - два противоречивые.

убрать перенос только в столбце B:B

и

убрать перенос строки в ячейках, если в этих ячеках больше 15 любых симворов

это разные задачи и вобщем-то требуют разных решений.
этот

Sub Макрос2()
  [B:B].WrapText = false
End Sub

решает первую из двух перечисленных задач.