通过代码在包装单元格中插入换行符

Question

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

我已经通过VBA代码将单元格的wrap文本属性设置为True,并且我也通过VBA代码将数据插入到它中.

Answer 1

是.VBA的等价物AltEnter是使用换行符:

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

Answer 2

你也可以使用vbCrLf哪个对应于Chr(13)&Chr(10).