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

#excel #vba

#excel #vba

Вопрос:

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

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

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

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

Пример:

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

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

Комментарии:

1. Вы пробовали CHR ()? Также есть vbCrLf, который может сработать.

2. chr()? что? @MichaelMurphy

Ответ №1:

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

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

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

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