Excel-VBA：無法插入換行符

Question

我需要在一個單元格中插入行，但我無法插入換行符。

例如：

一號線

2號線

3號線

用VBA代碼：

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

我得到：

一號線2號線3號線

我怎樣才能解決這個問題？

Answer 1

這是你正在嘗試？

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

或

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

編輯：在我的評論中提到插入引號。

Answer 2

VBA中的換行符是vbCrLf，您可以將它們與字符串連接起來。

Answer 3

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

As per this answer.

Answer 4

僅供參考，您可以防止通過使用更易於類型變量名稱的編碼錯別字。

bx = vbCrLf 

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

Answer 5

我已經測試了幾個組合和這裏的結果：

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

結果：
行1 **
2號線

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

結果：
line1line2

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

結果：
一號線
2號線

在上述結果的*表示一個空格（我不知道爲什麼），所以不建議vbCrLf時要居中單元格內容水平。我偏好vbLf。