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

質問

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

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

宜しくお願いします。

sheet1　列Ａ
sheet2　列Ｂ

↓

sheet3　列Ａ　列Ｂ

こんな感じなのですが。

回答No.3

sakenomo

＃２です。

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

回答No.2

sakenomo

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.1

sakenomo

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

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

補足

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

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