|
テキストボックスに長文を入力して、それを、改行毎にセルに分割して入れていく…といったマクロを作成したいのですが、今のままだと、スマートではないので、直接テキストボックス内の文章をセルに分割して入力する方法があれば、教えていただきたいです
TextBox1
この文章はテストです
今日は晴れ
明日は曇り
明後日は雨
いまは梅雨
↑上記のような文章をテキストボックスに入力すると、下記のようにエクセルのセル内に表記させたいです
セルA1 この文章はテストです
セルA2 今日は晴れ
セルA3 明日は曇り
セルA4 明後日は雨
セルA5 いまは梅雨
といったように、5行に分けて表示させるにはどうしたら、よいのでしょうか?
今のマクロは
1.テキストボックス内の値をセルA1に入れる
【コード】
Range("A1").Value = TextBox1.Value
↓
2.セルA1の値を改行毎にセル分割させる
【コード】
Dim MyTar As String
Dim strTest As String
i = 1
’セルA1に値がなくなるまで繰り返す
Do While Cells(1, 1).Value <> ""
strTest = Cells(1, 1).Value
’改行で区切って、セルに値を入れる ⇒(同時にセル内の改行も削除)
Cells(i, 2).Value = Replace(Left(strTest, (InStr(1, strTest, vbLf))), Chr(10), "")
’元データとなるセル内の文字列で入力した行を削除する
Cells(1, 1).Value = Right(strTest, Len(strTest) - (InStr(1, strTest, vbLf)))
i = i + 1
Loop
どうか、アドバイスをお願いします
|
|