先頭の改行だけ要らない

質問

セルに適当な値が入っていて、そのセルの値を改行で区切ってつなぎ合わせて
一つの変数に納めてmsgboxで表示させる際、
一番最初の値の前にも改行が付いてしまうのですが、
これってどうやったら避けれますか？

----------

a
b
c
----------

こういう結果になってしまいます。

----------
a
b
c
----------

こういう結果にしたいです。

回答No.6

tsubuyuki · ベストアンサー

どうしてもFor～Nextの中に全て入れたいなら、Ifを追加する手も。

Sub test()
Dim tmp As String
Dim i As Long

　　For i = 1 To 3
　　　　If tmp <> "" Then
　　　　　　tmp = tmp & vbCrLf
　　　　End If

　　　　tmp = tmp & Cells(i, 1)
　　Next

　　Debug.Print tmp

End Sub

まぁつまり、変数tmpが空じゃなかったら改行を結合してから、次のセルの中身を結合する、
最初のセルを結合するタイミングでは変数tmpは空なのでIfを通らない、と言うことです。

あ、変数tmpをString型で宣言したのは単なる趣味です。
あまり気になさらないでください。

お礼

ありがとうございます。

回答No.5

KURUMITO

MsgBoxでの表示を
MsgBox Range("A1") & Chr(10) & Range("A2") & Chr(10) & Range("A3")
のようにすることで表示画面の中央に並ぶようになっているので最初に改行があるのではないでしょう。
例えばA5セルまでの表示の場合でも上下の空白部分は同じで表示されますね。

お礼

ありがとうございます。

回答No.4

MarcoRossiItaly

1 行目だけ分ければ解決。

tmp = Cells(1, 1)

For i = 2 To 3
tmp = tmp & vbCrLf & Cells(i, 1)
Next i

勿論 3 行目だけ分けるのでもオッケー。

For i = 1 To 2
tmp = tmp & Cells(i, 1) & vbCrLf
Next i

tmp = tmp & Cells(3, 1)

お礼

ありがとうございます。

回答No.3

maiko0318

素人考えから申しますと、

For i = 1 To 3
tmp = tmp & vbCrLf & Cells(i, 1)
Next

i=1の時にCrLfと"a"が出る
i=2の時にCrLfと"b"が出る
i=3の時にCrLfと"c"が出る

ようですので、
tmp = tmp & Cells(i, 1) & vbCrLf
違うかなぁ

お礼

ありがとうございます。

回答No.2

keithin

sub macro1()
　dim i, s
　for i = 1 to 3
　　s = vblf & cells(i, "A")
　next i
　s = mid(s, 2, 999)
　msgbox s
end sub
みたいな。

お礼

ありがとうございます。

回答No.1

maiko0318

どのような関数でどのように表示していますか？

お礼

ごめんなさい＞＜
コード転記するの忘れてました。

これです↓
Sub test()
Dim tmp As Variant
Dim i As Long

For i = 1 To 3
tmp = tmp & vbCrLf & Cells(i, 1)
Next

Debug.Print tmp

End Sub

再度ご回答よろしくお願いします。