別シートに順番で貼り付け

Sheet1のB1から最終行までの値を、マクロを実行する度にSheet2のA列からB列・C列・・へと順に貼り付けたいです。
B列の行数は決まっていません。
例えばSheet1でB1からB5にそれぞれ1,2,3,4,5,と入力してマクロを実行するとSheet2のA1から下へ貼り付け、手動でSheet1に戻ってB列を手動で消去してB1からB6に6,7,8,9,10,11と入力してマクロを実行するとSheet2のB1から下へ貼り付け、
という動きにしたいです。
これをVBAで行いたいです。
お詳しい方宜しくお願いいたします。

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2023/04/14 00:07

こんばんは　

目的は不問として　クイズだと思って回答します
コードは一例です
Sub ValuesToSheet2Columns()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng As Range
Dim n As Long
Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")
Set rng = ws1.Range("B1", ws1.Cells(Rows.Count, "B").End(xlUp))
If Application.CountIf(ws2.Columns(1), "<>") = 0 Then n = 0 Else n = 1
ws2.Cells(1, Columns.Count).End(xlToLeft).Offset(, n).Resize(rng.Count, 1).Value = rng.Value
End Sub

この回答へのお礼

ありがとうございます！無事解決できました！

お礼日時：2023/04/18 05:25

No.1 回答者： yucco_chan 回答日時： 2023/04/13 21:12

やりたいことが不明です。

・最初からSheet2に入力すれば、VBAを使わなくても良い
・１アクションなら手動で行っても大した手間では無いと思うが？
・１度目は５セル、２度目は６セルと決まっているのですか？
　それともVBA実行前の全セル？

VBAの学習のための演習問題ですか？

この回答へのお礼

ご回答ありがとうございます、解決できました。
ご迷惑おかけして申し訳ありませんでした。

お礼日時：2023/04/18 05:24