Excel 商品販売累計の関数について

エクセルの関数についてご質問です。
商品の販売実績の累計を、エクセルで管理したいと考えております。

販売店からデータを頂き、それを修正しております。
販売店からは、簡単に書くと以下の画像のようなエクセルファイルが送られてきます。

=COUNTIF($B$2:$B$4,"りんご")の関数を使っていたのですが、
返品（表でいう「-1」)　や　数量が１以外のもの　に対応できず困っています。
画像のサンプルでいうと、「りんご　１個」「みかん　１個」と計算出来る関数が知りたいです。

ローデータ自体は、送られてくるものなので変更はできません…。

アドバイス頂けると嬉しいです。
ここまで読んでくださりありがとうございました。

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/07/26 13:30

こんにちは！

SUMIF関数で対応できそうな感じがします。
元データはSheet1にあり、Sheet2に表示するとします。
Sheet2のA2セル以降には「りんご」「みかん」等の商品名が入力済みだという前提だと
Sheet2のB2セルに
=SUMIF(Sheet1!B:B,A2,Sheet1!C:C)
という数式を入れフィルハンドルで下へコピー！

B列のデータも重複なしに表示させたい場合は作業列を使えば簡単にできますが、

＞送られてくるものなので変更はできません・・・

Sheet1（元データ）に手を付けたくないのであれば、VBAになりますが一例です。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から//
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
.Cells.Clear
.Range("B1") = wS.Range("C1")
wS.Range("B:B").AdvancedFilter Action:=xlFilterCopy, copytorange:=.Range("A1"), unique:=True
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
With Range(.Cells(2, "B"), .Cells(lastRow, "B"))
.Formula = "=SUMIF(Sheet1!B:B,A2,Sheet1!C:C)"
.Value = .Value
End With
End With
End Sub 'この行まで//

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

出来ましたー‼‼‼
本当にありがとうございます！

VBAまでご親切にありがとうございます！

お礼日時：2016/07/27 09:14

No.3 回答者： d-q-t-p 回答日時： 2016/07/26 13:36

SUMIFでもいいかと思いますが ピボットテーブルで集計すればいいのでは？

ピボットテーブルは一度作っておけば 送られてくるデータを Ａ:Ｃ列に貼り
つけて データを[更新]するだけでいいです。

この回答へのお礼

更新するだけでいいなんて便利ですね！
教えて下さりありがとうございます。
ピポットテーブルはまだ苦手ですが、挑戦していきたいと思います！

お礼日時：2016/07/27 09:17

No.2 回答者： 銀鱗 回答日時： 2016/07/26 13:35

SUMIF関数を使えばよいと思います。

合計する条件を設定し、条件に一致した場合に合計するという関数です。

=SUMIF(条件を検索する範囲,検索する条件,合計する範囲)
として使います。
質問の例では、

=SUMIF(B2:B4,”りんご”,C2:C4)
これで「りんご」の合計を、
=SUMIF(B2:B4,”みかｎ”,C2:C4)
これで「みかん」の合計そ求められます。

D1セルに「りんご」
D2セルに「みかん」
と入力して、
E1セルに
=SUMIF(B2:B4,D1,C2:C4)
E2セルに
=SUMIF(B2:B4,D2,C2:C4)
とすると、
E1セルにはりんごの合計、
E2セルにはみかんの合計が
それぞれ計算されて表示されます。

この回答へのお礼

とても分かりやすい説明ですね！
すっごく理解できました！
ありがとうございます～！＾Ｏ＾

お礼日時：2016/07/27 09:18