エクセルの関数でダブルカウントを避ける方法

質問

エクセルの関数機能で回答お願いいたします！

_______A_______B_______C_______D_______E_______F
1____品名___値____設定____下限___上限

2_____AA______1______(1)______0______1.6

3_____AB_____1.5_____(2)_____1.4_____2.1

4_____AC______2______(3)_____1.8_____2.2

5_____AD______1______(4)_____2.2_____2.6

6____AE______3____(5)_____2.5_____3.1

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

AA～AEまで５つの商品があり、
それぞれに値があります。

それらを　下限（Ｄ列）≦　値　＜上限（Ｅ列）　の範囲に
当てはまる　品数　をカウントしたいのですが

これをカウントし、Ｆ列に答えを返すと、

(1)0～1.6の間には　　3つ
(2)1.4～2.1の間には　２つ
(3)1.8～2.2の間には　１つ
(4)2.2～2.6の間には　0つ
(5)2.5～3.1の間には　１つ

となり、下限と上限の間にある値をダブッてカウントしてしまうのです。
Ｆ列の縦合計が　品名の数と同じようになるように、ダブらずに集計したいのですが
ダブらないでカウントする条件を設定したいのです。

たとえば　品名ABの場合、
下限と上限の範囲には　２つヒット（設定(1)と(2)）してしまうので
この場合、(1)の方にカウントし、(2)にはカウントしない

という風にし、絶対にダブルカウントせずに下限と上限の間の設定が２箇所ヒットした場合
常に下限が小さい方にカウントさせる方法はないでしょうか？

もしもっとシンプルに以上の解決策を
ご存知でしたら是非それも教えてください。

よろしくお願いいたします！！！

回答No.2

maruru01 · ベストアンサー

こんにちは。maruru01です。

F2に、

=COUNTIF(B:B,">=" & MAX(D2,$E$1:E1))-COUNTIF(B:B,">=" & E2)

と入力して、下の行へコピーします。
質問欄の例だと、F2から順に、
3、1、0、0、1
になります。

お礼

ありがとうございました！
シンプルかつ正確な回答、
そのとおりにやってみたらできました！
例題に出したものは私がやっているものを
簡略化したものだったので
さらに手を加えてちゃんと動くかどうかだけが
心配です・・・またできなかったら教えてください。

回答No.5

imogasi

ユーザー関数を作って、素直に考えたとおりできないか考えました。
（１）規範となる区分けは、E1:F５に
0 1.6
1.4 2.1
1.8 2.2
2.2 2.6
2.5 3.1
あるものとします。（「値」データと、区分け表部分が
質問では一体化して記述説明されているので、わかり難いかったので、わけました。）
（２）区分けは下限の昇順に並んでいるとします。
（３）ある「値」が決まったとき、上記区分けの何番目に
属するかを返すユーザー関数で作りました。（２）のお陰で初めに見つかった、区分けの番号を返せばよい。
このユーザー関数の作り方は、
ツールーマクロ－ＶＢＥで出てくる画面で、メニューの挿入－標準モジュールをクリックして出てくる画面に、コピペします。
Function bet(a, b)
Dim cl As Range
n = 1
For Each cl In b
If a > cl And a <= cl.Offset(0, 1) Then
bet = n
Exit Function
Else
n = n + 1
End If
Next
bet = ""
End Function
（４）ワークシートで、A列に値が入っているとします。
B1セルに=bet(A1,$E$1:$E$5)と入れます。
（本番で区分けが多いと、$E$5の５が変ります。）
B2以下に式を複写します。
結果は、下記（結果）のようになります。
（５）別のセル範囲で
=COUNTIF(B:B,1) 19
=COUNTIF(B:B,2) 6
=COUNTIF(B:B,3) 1
=COUNTIF(B:B,4) 4
=COUNTIF(B:B,5) 6
（合計３６です。）
と式を５つのセルに入れると、上記右のような件数になります。
（結果）
これはA1:B５の下記５つ（質問例）と
1 1
1.5 1
2 2
1 1
3 5
---
0.1刻みのA6:B36の
0.1 1
0.2 1
0.3 1
0.4 1
・・・・（途中略）
2.8 5
2.9 5
3 5
3.1 5
を数えたものです。

お礼

ありがとうございました。

補足

ありがとうございます。
早速試してみたのですが
（４）の
B1セルに=bet(A1,$E$1:$E$5)と入れます。
というところでB１セルに上の式を入れると
B1～B5までのセルが結合され数式がそのまま表示されて
しまいました。
もし良ければ補足でもう少し詳しく教えてもらえませんか？VBAの標準モジュールに貼り付けるだけで後は何もしないのでしょうか？教えてください。

回答No.4

hakone

勝手に条件を解釈して、
・上限の列（E列)は必ず昇順に並んでいる。
　（2行目が2.2で3行目が2.1というような逆転がない）
・データは必ず(1)～(5)の何処かに入る。

と仮定しました。

で、F2に
=COUNTIF(B$2:B$6,"<="&E2)-SUM(F$1:F1)
と書いて、下の方にコピーしてみて下さい。

上記の仮定が間違っていたら、答えも間違っています。

お礼

ありがとうございました。

回答No.3

MSZ006

例えば1.4～2.1の間をカウントするときは、
「1.4～2.1の間のカウント数」-「1.4～1.6の間（(1)(2)で重複している範囲です）のカウント数」

というような計算式にすればよいと思います。

お礼

ありがとうございました。

回答No.1

mshr1962

(1)0～1.6
(2)1.4～2.1
(3)1.8～2.2
(4)2.2～2.6
(5)2.5～3.1
上記の設定が
(1)0～1.6
(2)1.6～2.1
(3)2.1～2.2
(4)2.2～2.6
(5)2.6～3.1
なら
=SUMPRODUCT(($B$2:$B$6>=$D2)*($B$2:$B$6<$E2))
で出来ますが．．．
上限と下限が重なっている限りは不可能です。

お礼

ありがとうございました。