Помогите с макросами в exel

Question

Помогите с макросами в exel

Егор Денисенко Знаток (481), на голосовании 10 месяцев назад

по информатике дали задание, я почти все сделал и осталось только защитить, но тут препод говорит, а сделай мне так,Чтоб через макросы, каждое слово было начато с новой строки(пример на скриншоте), но как это сделать она не говорит и все знакомые тоже не знают, это можно сделать через alt+enter, Но ей нужно,Чтоб любое слово так делалось, поэтому нужно нажимать alt+enter в пустой ячейке при записи макроса, но тогда это не сработает, в общем я в тупике

Answer 1

Теоретически, можно попробовать функцию Replace:
https://learn.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/replace-function
Для замены пробела на перенос строки (константа vbNewLine).

Answer 2

Avis Оракул (90846) 11 месяцев назад

Да просто заменить все пробелы на символ перевода строки - chr(10):

 Sub New_Line() 
 Worksheets("Sheet1").Activate 
 ActiveCell.Value = Replace(ActiveCell.Value, " ", Chr(10)) 
End Sub

Егор ДенисенкоЗнаток (481) 11 месяцев назад

пожалуйста подскажи, мне нужно найти третье число от 4-значного числа, я вроде все правильно пишу, но в ответе он выводит мне число 4, а не 6(мое число 1264), вот мой код

Егор ДенисенкоЗнаток (481) 11 месяцев назад

уже не надо,надо было мод в скобки просто взять))

Answer 3

Ну, заменить пробелы на переносы строк, что сложного то ?
Прям тайна, о которой никто-никто не знает и не говорит. Ага.