VBAでオートフィルター コピー、ペースト

質問

VBA初心者です。
膨大なデータの計算に悩んでおります。
ご教授ください。
工場の各商品に使われている材料の使用量を各商品と個数を一括で入力し、計算させるエクセルシートを作成したいのですが、
1商品に使用されている材料は5～10種と不特定です。
シート1のA行に品番コード、B行に個数が入っており。(200列程度)
シート2に各商品に使用されている材料のマスターがあります。
A行品番コード、B行材料名、C～Fが材料のサイズ指示。

シート1のA5(商品リストの先頭)をセレクトし商品コードをコピー→シート2の材料マスターに移りオートフィルターで商品に使われている材料を選択→該当した材料、サイズ(行A～H）をコピー※列数は商品によって異なるので該当した全てをコピー→シート1の空白（仮にE5とする）にペースト→シート1のA6をセレクトしそれをA行が空白になるまで繰り返す。

という感じで出来るのかと思うのですが、いかがでしょうか。何しろデータが膨大で計算させるにも時間がかかってしまいそうですが・・・
また別な方法で同様な処理ができれば、それも合わせてお願いします。

不備ご不明な点あれば教えてください。

回答No.2

imogasi

質問説明が良くわからない。読解に苦労する。
イメージがつながらない。
シート、列、行を特定した模擬実例を書いて質問できないですか。
多列、多行有る場合は５－６列、１０行ぐらいの例を作ること。
＞計算に悩んでおります
計算ではなく、処理というようなものでは？
何か掛け算・足し算でもするのですか？個数の掛け算？
＞膨大なデータ
商品数ｘ材料はいくらぐらい？
１０ｘ２００？そんなに膨大とは見えないが。
＞品番コード、B行に個数が入っており。(200列程度)
なぜ２００列？２００行ではない？
普通エクセルはデータを上から下へ展開するもの。
ーー
実例でも挙げられないですか。
シート関係は３つ？
シート１ー商品リスト（品番コードー個数）
　　品番コードは商品に対するもの？材料に関するもの？
　　商品らしいね＞
シート２ーマスタ　品番コード（商品に対応？）ー材料名ーサイズ
シート３ー完成品（目指すシート）質問には名も出ない。
ーー
商品ーー＞材料ーー＞個数のブレークダウンの方法は？
商品（＝商品コード）からそれを作る複数の材料をシート２のマスターから取ってくる。
サイズ別もとってくる？
＝＝＝＝
（１）VBAで手作業でやるようなことを繰り返す方法はある。
（２）しかし商品ー＞材料を検索する方法もあると思う。
（３）シート１を（マスタのキー順の）品番コードでソートし、
シート１とシート２をマッチングすればよい。
（４）大量なら、材料分のレコードを分離して作製し、ソートし、マスタとマッチングして、さらにソートして元に戻す手もあり、処理が早いかも知れない。
２以下はロジックになれて居ないとなかなかコードが作れない。
ーーーーー
しかし全面的にVBAコードを回答者に書いてもらわないと、ヒントぐらいでは、プログラム作成がおっつかないのではと予想する。（＃１のご回答への反応などから）
質問者には現状無理な課題では。
予想模擬実例
シート１
商品コード　個数
１１２２　　　３４
１１３４　　　２３
・・・
シート２
商品コード　　　　材料　　型１　型２　・・・
１１２２　　　　　ネジ　　４２　１６
１１２２　　　　　板　　　１２　　８
１１２２　　　　　モータ　　１　　２
１１２２　　　　　計器　　　３　　１
１１３３　　　　　マイコン　１
・・・
ーー
シート３　　
商品コード　個数
１１２２　　３４　ネジ　　４２　１６　・・・
１１２２　　　　　板　　　１２　　８
１１２２　　　　　モータ　　１　　２
１１２２　　　　　計器　　　３　　１
＝＝＝＝
フィルタの操作の「マクロの記録」を取りどう繰り返しに持ち込むか
どうフィルタ結果をコピー貼り付けするか
毎回変わる部分が有るので（例えば貼り付け先）それをどうするか
考えるほか無いでしょう。
＝＝＝＝＝＝＝＝＝
Googleで「オートフィルタ　VBA　コピー」で照会すれば
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_autofilter.html　など
沢山、すぐ見つかる。こんな段階までもすぐ行き着かないようでは本件は難しいと思うが。

回答No.1

FEX2053

EXCEL-VBAの基本が分かってるとして、ですね。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_autofilter.html
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_advancedfilter.html

Range("xx").(Advanced/Auto)Filter でフィルタを掛け、
Range("xx").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy　でコピーする

というのが基本的な考え方です。

なお、関連してこちらのサイトもチェックされると色々と有意義かもです。
http://www.moug.net/tech/exvba/

補足

ありがとうございます。
参考にさせていただきます。

VBA初心者なのでサイト確認させていただきましたが、いまいちどれを使えばよいか解決までは時間を要しそうです。
^^;がんばります。