【3分ミニマクロ】複数列を1列に合体するVBAの書き方

Excelで複数列に渡ってデータが入っているので一列にまとめるVBAコードを作ってみます。
＜↓マクロを使わない方法＞
• 【Excel】複数列を一列にまとめる方法3パ...
📚ゼロから勉強し直したい方は
[VBAプログラミング基礎講座の再生リスト]
• VBAプログラミング基礎講座

[@アサ-x3o]

まさにこれがやりたかった‼︎
分かりやすい解説、ありがとうございます🙏

[@galaxy3nexuscola]

この動画では1列にまとめる内容ですが
20個ある横並びの行データを下記の条件で縦に並べ替えは可能ですか？
データ1の下にデータ3、データ5・・
データ2の下にデータ4、データ6・・

[@gamenostalgic4331]

エッセンスが詰まり過ぎている笑

[@kazuo111]

Excel2021でこれをしたくて探し求めていました！
マクロも超初心者なもので、早速自分のシートに当てはめてみましたが、.cells(targetrow,1)のところが、どうしても構文エラーになってしまいます。
シートは1枚の中に求めたいのでシート名は省略しましたが…
新しく作ったExcelでシートも2枚にして、そのまま試しても同じエラーになります😢
何が問題なのでしょうか？
Excelのバージョンとかでしょうか？
まったくわかりません😭

[@syouzama]

たいへん勉強になります。ありがとうございます！一つ質問したいのですが、コピーの記述の部分で
.Range(.Cells(1, i), .Cells(lastRow, i)).Copyとありrangeとcellsの前にsheets(1)が入っていますが
cells前のsheets(1)は必要ないのかなと思い.Range(Cells(1, i), Cells(lastRow, i)).Copyと記述した
ところsheets(1)がアクティブな状態で実行した場合問題ないのですが、sheets(2)がアクティブな
状態で実行すると実行時エラー1004が表示されてしまいます。これは何が問題なのでしょうか？

[@macro-chan]

Sheets(1).RangeのSheets(1)はあくまで次に続くRangeだけにきいてるわけです。Range内の引数には影響しません。なのでRangeの引数内でSheets(1)を省略してしまうと現在アクティブになっているシートのCellsという意味になってしまいます。(親オブジェクトを省略した場合のルール)

[@syouzama]

ありがとうございます！
凄くわかりやすい解説ですっきりしました。
マクロちゃんねるさんの以前の動画でも解説がありました。
ruclips.net/video/ziyZ_yVrIcM/видео.html