如何在单元格中获取包含换行符的单元格内容？

Question

我试图使用＆＃34; .Value＆＃34;来获取内部有换行符的单元格的字符串值。功能

参考下面的细胞B6和B7：

语法I使用：

Dim foo as String
foo = Range("B6").Value

B6和B7都返回单行字符串，例如＆＃34;亲爱的Anon，请给予......＆＃34;而我需要有实际价值，包括换行符。

是否有直接的方式来完成我的需要？

提前致谢！

修改

我实际上是将字符串构建成html内容，以便通过电子邮件发送。有了这个，我猜我需要检查单元格是否有换行符并用html标签替换每个换行符＆＃34; < br > ＆＃34; - ，实际上没有替换单元格内容。

e.g。我需要从单元格B6获取的值转换成类似的东西：

<br>"Dear Anon,< br >< br >Kindly grant the corre....."

希望你能帮忙......

Answer 1

如果您需要实际值，包括换行符，请使用您当前拥有的代码，即

Dim foo as String
foo = Range("B6").Value

如果您包含MsgBox foo或Debug.Print foo等语句，则在这些语句之后您会看到换行符包含在字符串中。

根据您更新的问题，尝试使用

Dim foo As String
foo = Replace(Range("B6").Value, vbLf, "<br>")

这将删除换行符并将字符串"<br>"插入其位置。

Answer 2

这将用＆lt;替换所有换行符。 br＆gt;

  Dim str As String
  str = Range("B6").Value
  str = Replace(str, Chr(10), "<br>")