Excel マクロ 改行数を求めたい

質問

いつもお世話になってます。

今Sheet1のC列のデータをSheet2のD列に移すマクロを作っていますが、
Sheet1には1～4行位のセルもあり、それを1行毎に分割してコピーしたいと考えています。

Splitで分割してみたのですが、
tmp = Split(Range("C1"), chr(10))
Sheets("Sheet2").Select
Range("D9")=tmp(0)
Range("D10")=tmp(1)
Range("D11")=tmp(2)
Range("D12")=tmp(3)

といった感じにすると
改行数が１～3の場合、エラーが出てしまいます。
（実際にはC列にデーターがある分だけ上記を繰り返します。)

そこで改行数を求めようとしましたが、
a = InStr(Range("C1"), chr(10))

これでは何行あっても数値（この場合は"a"）が10になってしまい、うまくできません。

何かいい手段がありましたらご教授願います。
よろしくお願いします。

回答No.1

kybo · ベストアンサー

UBound(tmp)で配列の最大数がわかります。
改行数は、UBound(tmp)-1です。

この様な感じでいいかと思います。

tmp = Split(Range("C1"), Chr(10))
Sheets("Sheet2").Select
Do Until UBound(tmp) < I
Range("D9").Offset(I) = tmp(I)
I = I + 1
Loop

お礼

早速の回答ありがとうございます。

配列を数えるんですね。
大変勉強になりました！

こちらで改行数は
UBound(tmp)そのままでもとまりましたが、
これで何とかできそうです。

本当にありがとうございました！

回答No.2

imogasi

質問が回りくどくてよくわからないが、またセル内改行のことらしいが、質問文にはっきり書いて質問してください。（コードを見るとそれらしい）
その場合はSplitして、いくつに分かれたかはUbound(s)で判る。
また配列の要素が0から始まるのでUbound(s-1までの繰り返しになる。
参考
C列が元データ。D列から以右列に分離した例"aa
dd" aa dd

"ss
fgh
sss
aaaaaaa" ss fgh sss aaaaaaa
ーーー
Sub test02()
For i = 1 To 5
s = Split(Cells(i, "C"), Chr(10))
For j = 4 To 4 + UBound(s) 'D列から右列に
Cells(i, j) = s(j - 4) 'D列からはじまることと配列が０から始まる結果こうする
Next j
Next i
End Sub

お礼

回答ありがとうございました。

質問文が回りくどくて申し訳ありません。

”また”ということは既出でしたか。
調べ不足も申し訳ありません。