vba - 通过代码在换行单元格中插入换行符

Question

是否可以通过 VBA 代码在换行单元格中插入换行符？ (类似于手动输入数据时执行Alt-Enter)

我已通过 VBA 代码将单元格的换行文本属性设置为 True，并且我也通过 VBA 代码将数据插入其中。

Answer 1

是的。 AltEnter 的 VBA 等效项是使用换行符:

ActiveCell.Value = "I am a " & Chr(10) & "test"

请注意，这会自动将 WrapText 设置为 True。

证明:

Sub test()
Dim c As Range
Set c = ActiveCell
c.WrapText = False
MsgBox "Activcell WrapText is " & c.WrapText
c.Value = "I am a " & Chr(10) & "test"
MsgBox "Activcell WrapText is " & c.WrapText
End Sub