[[20190620094534]]　『VBA　セルのコピペ』（初心者）　ページの最後に飛ぶ

『VBA　セルのコピペ』（初心者）

VBAのコピペについて質問です。

あるワークシートのセルA1に改行された文字列が50行あります。
これを別のシートのセルA1からA50に区分してコピペしたいのですが、
どのようなコードになりますでしょうか。

ご教授ください。

＜使用 Excel：unknown、使用 OS：unknown ＞

 コピペというよりは値の代入？ですが…

 このコードを書いたブックの左から1番目のシートのA1の値を改行で切り分けて、
 このコードを書いたブックの左から2番目のシートにA1から順に書き出します。
 参考まで…

 Option Explicit

Sub test()

    Dim x
    Dim i As Long

    x = Split(ThisWorkbook.Sheets(1).Range("A1").Value, vbLf)
    For i = LBound(x) To UBound(x)
        ThisWorkbook.Sheets(2).Cells(i + 1, "A").Value = x(i)
    Next i

End Sub

（虎） 2019/06/20(木) 11:09

命令が違ったりする事もあるので、OSとExcelのバージョンは記入して欲しいですね。

 Sub test()
    Dim vw As Variant
    vw = Split(Range("A1"), vbLf)
    Range("A1").Resize(UBound(vw) + 1, 1).Value = WorksheetFunction.Transpose(vw)
 End Sub
（???） 2019/06/20(木) 11:16

ありがとうございます！
大変助かりました！
（初心者） 2019/06/20(木) 13:30

コメント返信：

[ 一覧(最新更新順) ]

[[20190620094534]] 『VBA セルのコピペ』（初心者） ページの最後に飛ぶ

[[20190620094534]]　『VBA　セルのコピペ』（初心者）　ページの最後に飛ぶ