Вставить разрыв строки (Alt + Enter) с помощью VBA

Question

У меня есть макрос VBA для связи одного слова с другим в Excel.

Call CharactersReplace(xRg, "Test1", "Test2", True)

Работает хорошо, но я хочу сделать Alt + Введите в ячейке Excel (вместо Test2).

Буквально я хочу сделать перенос строки внутри ячейки.

Пример:

From: Hey How are you? Test1 Bla Bla
To: Hey How are you?
Bla Bla

На VBA есть код для этого?Я пытался сделать CHA (10) и т. Д., Но они не работают.

Answer 1

vbLf или Chr(10) является эквивалентом разрыва строки в ячейке.Поэтому должно работать следующее:

Call CharactersReplace(xRg, "Test1", vbLf, True)

Также убедитесь, что .WrapText этой ячейки равно True.

например: Range("A1").WrapText = True в противном случае вы вставите разрыв строки, но выигралине вижу.