【エクセル関数】別シートから複数列のデータを一度に挿入する方法

質問

はじめまして。
エクセル関数について下記ご教示願います。

●Sheet１のE列を基準にSheet２のデータをSheet１に挿入
●Sheet２から挿入する列は複数ある
●Sheet２の複数列に対応するSheet１の列も複数ある
　⇒Sheet2の複数列データをSheet１の対応する列に一度に挿入したい
［Sheet２］
　A　　　　　B　　　　　　C　　　　　D　　　　　　　E　　　　　F
1番号　　品名　　　　　規格名　アイテム番号　　メーカー　　発売日
2　１　　バラ　　　　　A2354　　　5673　　　　　　山田　　12/12　
3　２　　キク 　　　B6899 8239 　　　　 田中 12/23
4　３　　ラン 　　　C1432 3324 　　　　中田 12/24

［Sheet１］
　A　　　　B　　　　C　　　　D　　　　E　　　F
1番号　規格名　　メーカー　　品名　　アイテム番号　発売日
2　１　　　　　　　　　　　　　　　5673
3　２　　　　　　　　　　　　　　　8239
4　３　　　　　　　　　　　　　　　3324　

◆Sheet２のデータをSheet１に挿入ということで、
［Sheet２］［Sheet１］
　　　C　⇒⇒　B
　　　E　⇒⇒　C
　　　B　⇒⇒　D
　　　F　⇒⇒　F
この複数列のデータ挿入を一気に行う方法はあるのでしょうか。

よろしくお願い致します。

回答No.2

hige_082

＞これはマクロなのでしょうか？
はい、マクロです
数式がよければ
◆Sheet２のデータをSheet１に挿入ということで、
［Sheet２］［Sheet１］
　　　C　⇒⇒　B　B2へ　=Sheet2!C2
　　　E　⇒⇒　C　C2へ　=Sheet2!E2
　　　B　⇒⇒　D　D2へ　=Sheet2!B2
　　　F　⇒⇒　F　F2へ　=Sheet2!F2
と入力し、下方向に必要な所までコピーすれば良いと思いますよ

＞実行したいのですが、基本的なやり方がわからないので
＞よろしければ教えてください。
[Alt]を押したまま[f11][I][M]の順でキーを押す
カーソルの位置へ
Sub test
　：
End Sub
までをコピペし[X]でとじてExcelに戻り
[Alt]を押したまま[T][M][M]の順でキーを押す
マクロの「test」を選択し[実行]で実行する

この説明で分りますか？

回答No.1

hige_082

こう言う事？

Sub test()
Worksheets(2).Columns(3).Copy Worksheets(1).Columns(2)
Worksheets(2).Columns(5).Copy Worksheets(1).Columns(3)
Worksheets(2).Columns(2).Copy Worksheets(1).Columns(4)
Worksheets(2).Columns(6).Copy Worksheets(1).Columns(6)
End Sub

参考まで

お礼

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

Sub test・・・・
ですが、これはマクロなのでしょうか？
式？を見る限り一度に列の挿入できるようなので
実行したいのですが、基本的なやり方がわからないので
よろしければ教えてください。

よろしくお願いします。