エクセルで管理している特定のデータを探す方法

質問

お世話になっています。
エクセルで下記のようなデータを管理しています。

A　B　C
1さん　りんご　110
2さん　りんご　110
3さん　みかん　220
4さん　柿　330
5さん　柿　330
6さん　柿　340
7さん　キウイ　440
8さん　キウイ　420
9さん　メロン　550
…　　…

A列に購入者名、B列に果物名、C列に値段が入力されています。

通常は同じ果物は同じ値段なのですが、極まれに同じ果物なのに違う値段が入力されているデータがあります（上の例では6さん7さん8さんなど）。
これらをピックアップしたいと考えています。

現在考えている方法は、
B列が2つ以上同じデータのとき、それらの値段でひとつでも異なるデータがあれば、D列に×印を付けることを考えています。

これを実現するVBAをご教示いただけますでしょうか。
また、他に良い方法がありましたらぜひ教えてください。

回答No.6

tom04 · ベストアンサー

こんにちは！
B列に同商品が3つ以上あり、仮に2つが同価格で他の1つの価格が違う場合は
「他の一つ」の行だけに「×」を表示したい訳ですよね？

一例です。
1行目は項目行でデータは2行目以降にあるとします。

Excel2007以降のバージョンの場合はD2セルに
=IF(AND(COUNTIF(B:B,B2)>1,COUNTIFS(B:B,B2,C:C,C2)=1),"×","")

Excel2003までのバージョンの場合は
=IF(AND(COUNTIF(B:B,B2)>1,SUMPRODUCT((B$1:B$100=B2)*(C$1:C$100=C2))=1),"×","")

という数式を入れオートフィルで下へコピーしてみてください。m（_ _）m

回答No.5

chonami

数で判断するってのはどうなんでしょうねぇ・・・
もちろんあまりあり得ませんが5つのうち正しいのが1つだったらそれに×がつくと言う事なんですよね？

どこかにマスタをつくっておいてVLOOKUPなどで品名を入れたら単価が入力される、というようなシステムの方が良さそうな気がしますが。

回答No.4

KURUMITO

ＶＢＡで処理するほどの必要性はないでしょう。関数で十分対応することができます。

すべてのデータが2行目から下方にあるとしてＤ2セルには次の式を入力して下方にドラッグコピーします。

=IF(B2="","",IF(ABS(C2-SUMIF(B:B,B2,C:C)/COUNTIF(B:B,B2))/(SUMIF(B:B,B2,C:C)/COUNTIF(B:B,B2))>0.02,"×",""))

この式では果物の値段がその平均値に比べて2％を超える開きがある場合に×が表示されます。

回答No.3

mu2011

正規単価表を別シートに作成して検証した方がよいのではないでしょうか。
仮にSheet2のA列に商品名、Ｂ列に単価の表を作成します。
エクセル２００７以上なら、
D1に=IF(COUNTIFS(Sheet2!A:A,B1,Sheet2!B:B,C1),"","×")

エクセル２００３以下なら、
D1に=IF(SUMPRODUCT((Sheet2!$A$1:$A$100=B1)*(Sheet2!$B$1:$B$100=C1)),"","×")

回答No.2

noriechan

アクセス（MS　ACCESS）の方が楽では？
クエリですぐ抽出できそうな・・・

回答No.1

K Kazz（@JazzCorp）

ナニゆえVBAで？？
D2：
=IF(COUNTIF($B:$B,B2),IF(SUMIF($B:$B,B2,$C:$C)/COUNTIF($B:$B,B2)=C2,"","×"),"")
以下、コピー