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

是否可以通过VBA代码在换行中插入换行符？ （类似于手动input数据时按Alt – Enter ）

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

Answer 1

是。 Alt Enter的VBA相当于使用换行符：

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

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

certificate ：

 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

你也可以使用对应于Chr(13)和Chr(10) vbCrLf 。

Answer 3

只需在文本框内按Ctrl + Enter即可

Answer 4

是的，有两种方法可以添加换行符：

1. 在要添加换行的string中使用VBA vbCrLf中的现有函数，如下所示：

   昏暗的文字为string

   text =“Hello”＆vbCrLf＆“World！”

   工作表（1）.Cells（1，1）=文本

2. 使用Chr()函数并传递ASCII字符13和10以添加换行符，如下所示：

   昏暗的文字为string

   text =“Hello”＆Chr（13）＆Chr（10）＆“World！”

   工作表（1）.Cells（1，1）=文本

在这两种情况下，您将在单元格（1,1）或A1中具有相同的输出。