Excel-VBA：无法插入换行符

Question

我需要在单元格中插入行，但我无法插入换行符。

例如：

  

1行

     

LINE2

     

line3中

使用VBA代码：

             Ws.Cells(i, 2) = line1 & line2 & line3

我明白了：

  

line1 line2 line3

如何解决此问题？

Answer 1

这是你在尝试的吗？

Ws.Cells(i, 2).Value = "line1" & vbnewline & "line2" & vbnewline & "line3"

或

Ws.Cells(i, 2).Value = "line1" & vbCrLf & "line2" & vbCrLf & "line3"

编辑：插入引号，如我的评论中所述。

Answer 2

我测试了几种组合，结果如下：

cell(a,b) = line1 & vbCrLf & line2

结果：
一号线**
LINE2

cell(a,b) = line1 & vbCr & line2

结果：
line1line2

cells(a,b) = line1 & vbLf & line2

结果：
一号线
LINE2

在上面的结果中，*表示一个空格（我不知道为什么），因此当您想要水平居中单元格内容时，不建议使用vbCrLf。我更喜欢vbLf。

Answer 3

VBA中的换行符为vbCrLf，您可以将它们与字符串连接起来。

Answer 4

Ws.Cells(i, 2) = line1 & line2 & Chr(10) & line3

As per this answer.

Answer 5

仅供参考，您可以使用更易于输入的变量名来防止编码拼写错误。

bx = vbCrLf

textstring = "Hello everybody!" & bx & "This is my second line!"