エクセルで重複するセル合計を別シートへ自動記入

質問

エクセルのシートAに商品番号（実際は1000個近くあります）と
その売り上げ個数がずらっと並んでいます。
各顧客ごとの売り上げ結果なので、商品番号がかなり重複しています。

これをシートBに各商品ごとに売り上げ個数が表示されるような
関数式が知りたいです。
ちなみにシートAとシートBの商品の並び順は違います。

今までは商品ごとに合計を出してから、別シートで該当商品を探し、
手入力で入れていたので、この作業に3時間くらいかかっていました。
入力ミスの可能性もあるので、さらに確認作業も大変でした。

【シートA】
A 　　 B
---------
001 　3
001 　2
001 　2
002 　1
002 　1
003 　1
003 　2
003 　5
003 　3

【シートB】
A 　 B
---------
001 　7
002 　2
003 　11

いろいろ調べて試してみましたが苦戦しています。
まずはシートAの「C1」に関数「=SUMIF($A$1:$A$2000,A1,$B$1:$B$2000)」を入力し、
各商品ごとの合計数を出し、それをC欄の下（C2000）までとドラッグ？してみたのですが、
そうすると下のように、同じ商品内で数値が重複して出るので、
今度は余計な数値（セル）を削除しないといけないと思い、
そこからつまづいてしまいました。

【シートA】
A 　 B 　 C
---------------
001 　3 　7
001 　2 　7
001 　2 　7
002 　1 　2
002 　1 　2
003 　1 　11
003 　2 　11
003 　5 　11
003 　3 　11

長文ですみません。
方法をご存知の方、ぜひ教えてください。
よろしくお願いします！

回答No.3

mar00

VBAの一例です。
シートBを選択すると計算するようになっています。
シートBのシート名の上で右クリック後、コードの表示を選択して
出てきた画面の白い部分に下記をコピーして貼り付けて下さい。

Private Sub Worksheet_Activate()

Cells.ClearContents
Sheets("A").Columns("A:A").Copy Destination:=Columns("A:A")

myRow = Cells(Rows.Count, "A").End(xlUp).Row

Range("A1:A" & myRow).Sort Key1:=Range("A1"), order1:=xlAscending
For i = myRow To 2 Step -1
If Range("A" & i) = Range("A" & i - 1) Then
Range("A" & i).EntireRow.Delete
End If
Next i

Range("B1").FormulaR1C1 = "=SUMIF(A!C[-1],RC[-1],A!C)"
Range("B1").Copy Destination:=Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)

End Sub

データが膨大になると時間がかかるようになってしまいますが
2000くらいなら問題ないかと思います。