如何获得单元格内容，包括单元格内的换行符？

我试图得到一个单元格的string值是有一个换行符，使用“.Value”函数。

参考下面的单元格B6和B7：

语法我正在使用：

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

B6和B7都返回一个单独的string，例如“Dear Anon，Kindly grant …”，而我需要包含换行符的实际值。

有一个简单的方法来完成我所需要的吗？

提前致谢！

编辑：

实际上，我将这些string构build成html内容，以便通过电子邮件发送。 有了这个，我猜我会需要检查单元格是否有换行符，并用html标签replace每个换行符 – 而不实际replace单元格内容。

例如，我需要从单元格B6取得的值转换成如下forms：

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

希望你能帮助..

Answer 1

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

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

如果你包含一个像MsgBox foo或Debug.Print foo这样的语句，那么在这些语句之后，你会看到换行符包含在string中。

---

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

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

这将删除换行符，并将string"<br>"插入到它们的位置。

Answer 2

这将会取代所有换行符

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