Question

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

例如:

直线1

行2

行3

使用VBA代码 :

             Ws.Cells(i, 2) = 直线1 & 行2 & 行3

我得到:

直线1 行2 行3

我如何解决这个问题?

Answer 1

这就是你在尝试的吗?

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

或

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

<强度 > EDIT :我的评论中提到的插入的引文。

Answer 2

我测试了几个组合,结果如下:

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

result:
line1**
line2

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

result:
line1line2

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

result:
line1
line2

在上述结果中, * 表示空格( 我不知道为什么), 所以当您想要水平居中单元格内容时, vbCrLf 不推荐。我倾向于 vbLf 。

Answer 3

VBA 中的断线是 vbCrLf , 您可以用字符串将其连接。

Answer 4

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

Answer 5

FYI, 您可以使用简单易懂的变量名称来防止编码错误。

bx = vbCrLf

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