使用 VBA 将多行公式写入范围

Question

公式栏中的所需结果：

=IF(True,
1,0)

这些 return 一般 1004 错误：

Selection.Formula = "=IF(True," & vbCrLf & "1,0)"
Selection.Formula = "=IF(True," & vbNewLine & "1,0)"

~~Selection.Formula = "=IF(True," & CHAR(10) & "1,0)"~~ （编辑为 Chr(10) 确实有效，谢谢 Tim）

是否有任何可能的解决方法来在公式栏中换行？

Answer 1

公式栏似乎只支持LF字符，但有可能：

selection.formula = "=IF(True," & vbLf & "1,0)"

正如蒂姆在上面的评论中指出的那样，这也有效：

selection.formula = "=IF(True," & Chr(10) & "1,0)"

Writing multi-line formula to range using VBA