セル内の改行を含むセルの内容を取得するにはどうすればよいですか？

Question

".Value"関数を使用して、改行が入っているセルの文字列値を取得しようとしています。以下B6及びB7細胞を参照

：

構文私が使用しています：

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

例えば単一の行の文字列としてB6およびB7戻る両方を「親愛なるAnon、親切に許諾します...」私は改行を含めた実際の価値を持っている必要があります。

私は必要なものを達成するための単純な方法がありますか？

ありがとうございます！

EDIT：

私は電子メールを介してそれを送ることができますので、私は実際にHTMLコンテンツに文字列を構築しています。これで、実際にセルの内容を置き換えなくても、セルに改行があるかどうかを確認し、各改行をhtmlタグ "<br>" - に置き換える必要があると推測しています。

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

は、あなたが現在持っているコードを使用し、あなたが改行を含む実際の値を、必要な場合は...

Answer 1

を助けることができると思います。私のようなものに変身するセルB6から取られた値を必要としますあなたは、このようなMsgBox foo、またはDebug.Print fooなどのステートメントを含める場合、すなわち

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

、これらのステートメントの後に、あなたは改行を文字列に含まれていることがわかります。

---

あなたの更新の質問に基づいて、改行文字を削除し、その場所に文字列"<br>"を挿入します

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

を使用してみてください。

Answer 2

これは改行で< BR>

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