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

Question

我正在尝试使用“.Value”函数获取内部有换行符的单元格的字符串值。

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

我使用的语法：

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

B6 和 B7 returns 作为单行字符串，例如"Dear Anon,Kindly grant..." 而我需要包含换行符的实际值。

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

提前致谢！

编辑：

我实际上是在将字符串构建到 html 内容中，以便我可以通过电子邮件发送它。有了这个，我猜我需要检查单元格是否有换行符并将每个换行符替换为 html 标记“ ” - 实际上没有替换单元格内容。

例如我需要从单元格 B6 中获取的值转换成如下内容：

 "Dear Anon, 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>")

这将删除换行符并将字符串 " " 插入到它们的位置。

Answer 2

这会将所有换行符替换为

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

How can I get the cell contents including a linebreak within the cell?