Excel-VBA：无法插入换行符

Question

I need to insert lines in a cell, but I am unable to insert line breaks.

For example :

line1

line2

line3

With VBA code :

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

I get :

line1 line2 line3

How can I resolve this issue?

Answer 1

Is this what you are trying?

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

or

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

EDIT : Inserted quotes as mentioned in my comments.

Answer 2

I have tested a few combinations and here are the results:

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

In the above results the * denotes a blank space (I don't know why), so the vbCrLf is not recommended when you want to center the cell content horizontally. My preference goes for vbLf.

Answer 3

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

Answer 4

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

根据这个答案。

Answer 5

FYI, you can prevent coding typos by using an easier-to-type variable name.

bx = vbCrLf

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