VBA 2つのシートのデータを商品名で集計したい

質問

お世話になります。

[データ上期]、[データ下期]、[集計]、という3つのシートがあります。
[データ上期]と[データ下期]にはそれぞれ以下のようなデータが入っています。

A1　　　　　B1　　　　　C1
(商品名) (売上金額) (数量)
チョコ 1,000 10
砂糖 2,000 20
チョコ 3,000 30
バター4,000 40
砂糖 6,000 60
バター2,000 20
・・
このような[データ上期]と[データ下期]のデータを商品名で集計した結果を「集計]シートに出力したいのです。
しかもこの[データ上期]と[データ下期]はオートフィルターで集計されているデータなので、オートフィルターで表示されているデータのみを「集計]シートに商品名毎に出力したいのです。(言い方が下手ですいません)

フォームから「集計」ボタンを押すと上記のマクロが走るようなVBAをご教授いただきたく思います。
よろしくお願い致します。

イメージを添付いたします。

環境 Wisndows XP SP3 Excel2003

回答No.1

keithin · ベストアンサー

private sub CommandButton1_Click()
　worksheets.add
　activesheet.name = "TEMP"

’集める
　worksheets("Sheet1").autofilter.range.copy _
　　destination:=worksheets("TEMP").range("A1")
　worksheets("Sheet2").autofilter.range.offset(1).copy _
　　destination:=worksheets("TEMP").range("A65536").end(xlup).offset(1)

’統合する
　worksheets("集計").cells.clearcontents
　worksheets("集計").range("A1").consolidate _
　　sources:="TEMP!" &　worksheets("TEMP").range("A1").currentregion.address(referencestyle:=xlr1c1), _
　　function:=xlsum, toprow:=true, leftcolumn:=true, createlinks:=false

’片づける
　application.displayalerts = false
　worksheets("TEMP").delete
　application.displayalerts = true
end sub

具体的にホントはどこにデータがあるのかとか、そういった細かい調整はご自分で行ってください。

お礼

keithinさんありがとうございます。

お陰様で大筋は実現することができました！！
本当にありがとうございました。

「統合」というExcel機能自体を知りませんでした・・
とても勉強になりました。

残りの細かい箇所は少し修正すればいけそうです！
この度はありがとうございました。

補足

keithinさん早速のご連絡ありがとうございました。
いつもありがとうございます。

急な外出が入ってしまいご連絡が遅くなってしまいました。
申し訳ありません。
詳細なロジックのご提示まことにありがとうございます！
早速月曜日に会社にて試してみたいと思います！

結果またご報告させていただきます。
取り急ぎお礼まで。

回答No.2

Nouble

現在回答準備中ですので、出来ましたならばお待ち頂ければ幸いです。

SpecialThanks
cj_mover　様、ご指導有り難うございます。

お礼

Noubleさん、ご連絡ありがとうございました。

本件解決しましたのでCloseさせていただきます。
ありがとうございました。