Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32641 / 76734

←次へ　｜　前へ→


	【49328】同じ構造のシートを結合するには

学問１ - 07/5/31(木) 12:58 -


	引用なし

	パスワード

複数のシートを結合するため、手動でコピー、貼り付けの手順で
可能ですが、もっと効率いい方法はあるのでしょうか？
マクロ自動記録の手法でやって見ました。以下の難関に直面しています。、
・各シートのレコード数が可変のため、制御するのに非常に困難です。
・結合シートに貼り付けのときも、難しいです。
・シートの数も可変のため、もっとく難しくなります。
ご伝授ください。

Sub Macro1()
　　Sheets("Sheet1").Select
　　Range("A1:C2").Select
　　Selection.Copy
　　Sheets("結合").Select
　　Range("A1").Select
　　ActiveSheet.Paste
　　Sheets("Sheet2").Select
　　Range("A2:C2").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("結合").Select
　　Range("A3").Select
　　ActiveSheet.Paste
　　Range("C3").Select
End Sub

Sheet１
名前　　性別　　年齢
田中　　男　　　15
・
・
Sheet２
名前　　性別　　年齢
斉藤　　男　　　16
・
・

結合
名前　　性別　　年齢
田中　　男　　　15
・
・
斉藤　　男　　　16
・
・

3 hits

▼

【49328】同じ構造のシートを結合するには 学問１ 07/5/31(木) 12:58

≪