使用VBA插入换行符（Alt + Enter）

Question

我有一个VBA宏，可以在Excel中将一个单词替换为另一个单词。

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

它运行良好，但是我想在Excel单元格（而不是Test2）上执行 Alt + Enter 。

从字面上看，我想在单元格中进行换行。

示例：

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，否则您将插入一个换行符，但看不到它。