Question

VBA赋值内容换行

我需要给某个单元格赋值，而赋值内容很长，且当中涉及换行这个格式
比如给A2单元格赋值内容+格式是：“
所以运营部本月成本为‘直接引用单元格B2内容’
客服部本月成本为‘直接引用单元格C2内容’
工程部本月成本为‘直接引用单元格D2内容’
”要满足这样的格式，当中涉及换行，这段代码应该怎么写呢

Answer 1

sheet1.cells(2,1) = "所以运营部本月成本为" & sheet1.cells(2，2) & chr(10) & _
"客服部本月成本为" & sheet1.cells(2,3) & chr(10) & _
"工程部本月成本为" & sheet1.cells(2,4)

sheet1根据实际表格名称修改。chr(10)就是换行符。在一些地方需要用两个符号 chr(10) & chr(13)，这里只用一个即可。在excel单元格中，直接按 alt + enter也可以换行。您还可以录制一下宏，看看用这个换行，录制出来的代码是什么样的。

Answer 2

VBA中，换行符为：Chr(10)

用法：
range("A1") = "第一行" & chr(10) & "第二行" & chr(10) & "第三行" & ……

注意，单元格的格式需要设置为“自动换行”