使用 VBA 插入换行符 (Alt+Enter)

Question

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

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

它运行良好，但我想在 Excel 的单元格上执行 Alt+Enter（而不是 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 否则您将插入一个换行符但不会看到它。