Excel VBA查看文本和换行符的表单字段，然后查看文本

我正在使用遗留代码在这里，我不知道我可以或应该改变多less，但我有代码，看起来像“SIC代码4000”然而，数据的HTML数据库我把它从（我们使用副本和粘贴）已更新他们的代码有：

“SiC代码

4000"

目前的代码是：

Const strSic = "SIC Code " 

不过，我现在需要它来添加换行符。

我试着修改代码来说：

 Const strSic = "SIC Code" & Chr(10) & Chr(10) & Chr(10) 

但是我得到一个编译错误，说“需要恒定expression式”

我尝试使用“SIC代码\ n \ n \ n”，但也许我没有考虑换行的正确字符。

有什么build议么？

Answer 1

新行的代码是vbNewLine ：

 Const strSic = "SIC Code" & vbNewLine & vbNewLine & vbNewLine 

更新：

要更详细一点，请参阅VBA常量 ：

• vbNewLine = Chr(13)+Chr(10)和Mac上的Chr(13)
• vbCr = Chr(13)
• vbLf = Chr(10)

所以如果你只需要Chr(10)你应该使用vbLf （就像Excel Hero的答案）。

Answer 2

尝试这个：

 Const strSic = "SIC Code" & vbLf & vbLf & vbLf 

Answer 3

是的vbNewLine是正确的代码：）