ＶＢＡで同じブック内の別シートの列を結合する方法

同じブック内のsheet1（列Ａ）とsheet2（列Ｂ）を結合して、
新しいsheet3に出力したいと思っています。

ＶＢＡで作成する場合どのようにすればよいのでしょうか？

宜しくお願いします。

sheet1　列Ａ
sheet2　列Ｂ

↓

sheet3　列Ａ　列Ｂ

こんな感じなのですが。

No.1 回答者： sakenomo 回答日時： 2004/02/16 20:21

こんなかんじでしょうか。

Sub test()
Sheets("Sheet3").Columns(1).Value = Sheets("Sheet1").Columns(1).Value
Sheets("Sheet3").Columns(2).Value = Sheets("Sheet2").Columns(2).Value
End Sub

この回答への補足

回答ありがとうございます。

ちなみに列が複数ある場合の指定方法等ありますでしょうか？

補足日時：2004/02/16 21:23

No.2 回答者： sakenomo 回答日時： 2004/02/16 21:48

sheet1　列Ａ Ｂ

sheet2　列Ａ Ｂ

↓

sheet3　列ＡＢＣＤ

の場合ですと、

Sub test2()
Sheets("Sheet3").Columns("A:B").Value = Sheets("Sheet1").Columns("A:B").Value
Sheets("Sheet3").Columns("C:D").Value = Sheets("Sheet2").Columns("A:B").Value
End Sub

でしょうか。Copy、.Pasteメソッドを使う方法も考えられます。21：10のご質問の様な場合もそうですが、一度記録マクロでいろいろ試してみられることをおすすめします。

No.3 回答者： sakenomo 回答日時： 2004/02/16 21:53

＃２です。

失礼しました。21：10のご質問のケースでは、記録マクロは使えませんでしたね。m(__)m