Авто-перенос слова из ячейки

[OlegZkov]

Здравствуйте. Задача в том, что бы автоматически переносить последнее слово из предложения в ячейке, в другой столбец этой же строки при условии если в предложении больше 75 символов.

[IgorGO]

в ячейке

из какой ячейки?

в другой столбец этой же строки

видите-ли, начиная с офиса 2007 лист содержит 16384 колонок
в какой из них другой столбец?

в конце предложения могут быть знаки препинания, что с ними делать? переносить вместе с последним словом? исключить?

[OlegZkov]

Например из ячейки A1 в B1. В конце будет точка, переносить слово с ней.

[IgorGO]

1. правой кнопкой мыши по ярлыку листа, где это должно работать
2. в всплывшем меню "исходный текст"
3. в открывшееся окно копируете этот

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
  If Len(Target) > 75 Then Cells(1, 2) = Split(Target)(UBound(Split(Target)))
End Sub

4. радуетесь автоматической работе

[Aleksandr H.]

Сообщение от IgorGO

  If Len(Target) > 75 Then Cells(1, 2) = Split(Target)(UBound(Split(Target)))

как читается ета строка?

[OlegZkov]

Спасибо за ответ почти то что надо. Закинул на R282655679850 50 рублей.
Понимаю что вопрос может быть не совсем понятен, поэтому прилагаю изображение.
Поясню вопрос - в первую колонку вставляются (скопированные) фразы списком, и если какая то из них более 75 символов то последнее слово или слова вырезаются и вставляются в соседнюю ячейку в эту же строку.

[IgorGO]

необходимо ранее предложенный текст процедуры ЗАМЕНИТЬ! на этот

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each c In Intersect(Target, Columns(1))
    If Len(c) > 75 Then c.Offset(0, 1) = Split(c)(UBound(Split(c)))
  Next
  Application.EnableEvents = True
End Sub

это поддерживает коллективное изменение ячеек в колонке А (т.е. если не одно поправить руками а скопировать сразу много с другого источника, то каждая будет проверена и если нужно - последнее слово перенесено в ячейку правее)

[IgorGO]

Саша,
читать справку по ВБА - не зазорно! а даже наоборот и уж точно полезно
не вижу особого смысла пересказывать все, что написано по Split Function
коротко Split делит строку на подстроки (разделитель по умолчанию - пробел)
подстроки записываются в одномерный массив
Split(c) - возвращает массив
UBound(Split(c)) - это размер массива (№ последнего элемента если хочешь)
соотв.
Split(c)(UBound(Split(c))) - последний элемент массива

надеюсь, что зачит это:
Len(c) > 75
обьяснять не надо было)))

[OlegZkov]

Круто... только перенесённое слово в правую колонку не удаляется с левой колонки. Можно это как то решить?

[Aleksandr H.]

Сообщение от IgorGO

Саша,
читать справку по ВБА - не зазорно! а даже наоборот и уж точно полезно
не вижу особого смысла пересказывать все, что написано по Split Function

Ох уж любите упрекать человеков. Читал я справку.

Сообщение от IgorGO

коротко Split делит строку на подстроки (разделитель по умолчанию - пробел)
подстроки записываются в одномерный массив
Split(c) - возвращает массив
UBound(Split(c)) - это размер массива (№ последнего элемента если хочешь)
соотв.
Split(c)(UBound(Split(c))) - последний элемент массива

надеюсь, что зачит это:
Len(c) > 75
обьяснять не надо было)))

Split поделил строку на массив. Ubound показал размер. Split(c)Ubound() - взял последний элемент. и что? Почему на входящий данных: Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
результатом в ячейке В1 получилось понимаете а не одозревали, методами, которых Вы не понимаете?

Все, пардон, вибачаюсь! Я условие неверно понял, почему-то подумал что надо перенести все символы с позиций 75+