エクセルで重複を抽出して合計したいのですが。

質問

このような表があります。

　　　Ａ　　　Ｂ
１　　Ａ社　　２００
２　　Ｂ社　　１００
３　　Ｃ社　　３００
４　　Ｄ社　　４００　
５　　Ａ社　　５０
６　　Ａ社　　５００

Ａ列を抽出条件にします。
上の表の場合、Ａ社が３個ありますのでＡ社の右の数字２００と５０と５００を合計して、Ａ社　７５０と抽出したいです。
Ａ列で重複しないものは、そのまま表示させます。

エクセルのマクロを使って、上の表を↓の表のようにしたいです。

　　　Ａ　　　Ｂ　　　　Ｃ　　　Ｄ
１　　Ａ社　　２００　　Ａ社　　７５０
２　　Ｂ社　　１００　　Ｂ社　　１００
３　　Ｃ社　　３００　　Ｃ社　　３００
４　　Ｄ社　　４００　　Ｄ社　　４００
５　　Ａ社　　５０
６　　Ａ社　　５００

その他の条件としてはＡ列には重複する項目が何個もでてきます。

よろしくお願いします。

回答No.2

rin01 · ベストアンサー

こんばんは～♪

C列は、フィルタオプションを使ったら
いかがでしょうか？

１行目に、見出し行を作れば
簡単にできます。

そして、
naana2さんの書かれたSUMIFで計算出来ます。

別の方法では、抽出集計が、
ピボットテーブルでも
簡単に出来ます。

ご参考にどうぞ～。。。Rin～♪♪

回答No.3

mshr1962

マクロでということは自動でということでしょうか？
この場合、ピボットテーブルを使うのが一番楽だと思います。
「データ」「ピボットテーブル」で上記のA:B列（1行目に項目"会社名","売上"）を選択して
会社名を列に、売上をデータ（合計）で完了、後は自動でやってくれます。
更新はピボットテーブルツールバーの[！]データの更新で行えます。

SUMIFでの数式も可能ですが、この場合、会社名だけは別途抽出が必要です。

回答No.1

naana2

集計機能を使えば問題解決のような気がしますが？
あえてマクロを使う必要があるのでしょうか？

[データ]→[集計]

マクロを使うのであればC列を動的に作るのがVBAじゃないと出来ない気がします。C列を手動で作れば計算自体はSUMIF関数でできますので・・・