抽出したデータの重量を足したい

質問

VBA初心者です。
２つのデータ表から品番データを抽出し、データの重量も足したいです。

データ表（A)

　品番
B1　１０
B2　２０
B3　３０　

データ表（B）

　品番　　　　　　　　　　重量
B8　１０　　　　　　　C８　１０００　
B9　１２　　　　　　　C９　２３００
B10　１０　　　　　　C10　２０００

（B）から品番１０を抽出し、データにすることはできましたが、同時に品番１０の重量も足したいのです。

よろしくおねがいします！

回答No.2

ASIMOV

B15 =10 として
品番 =10 の重量を合計するなら
　C15 =SUMIF(B8:B10,B15,C8:C10)
で、出ると思います

ただ、このフィルターのマクロの意味がよく解りません
例えば
B8 を 10 以外の値にすると
B15 以下に　10～30 が呼び出されますけど．．
これで良いのでしょうか？

回答No.1

ASIMOV

＞（B）から品番１０を抽出し、データにすることはできましたが

ＶＢＡで出来たと言う事ですか？
であれば、そのソースを見せてください

補足

自動マクロ起動でフィルタオプションの設定をしただけなのですが・・・

Range("B1:B4").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B8:B10"), CopyToRange:=Range("B15"), Unique:=False

このマクロで品番１０だけを抽出することはできたのですが、同時に品番１０の重重量を右隣のセルに足し算してから表示させたいのです。

品番１０は、B15に抽出されました。

よろしくおねがいします。