[Excel2000]フィルタ後に1種別時の内容

質問

現在フィルタを行うと、抽出状態に連動して、各行のデータ種別件数を取得しています。
（実装済み）http://okwave.jp/qa/q8160497.html

その「各行毎に種別件数が1である場合」「その1種別に該当するデータ内容を行単位で表示」という事を行いたいと思っております。

（言葉では質問のイメージが伝えづらいので、2画像を以下の順番でご参照願います。）
----------------------------------------------------
＃1の画像（フィルタ実行前の状態）
http://okwave.jp/qa/q8160497.html
の質問時に貼り付けた画像
----------------------------------------------------
----------------------------------------------------
＃2の画像（商品を「いちご」でフィルタを行った状態）
今回の質問で貼り付けた画像
----------------------------------------------------

そしてまた、実装の制約もありまして・・・
・VBA利用不可
・可能であれば、Excel2000でも動作する標準のExcel関数のみの利用

情報が足りなければ補足を行います。

どなたかご教授くださいますよう、宜しくお願いいたしますm(_ _)m

回答No.2

MackyNo1 · ベストアンサー

No1の回答の補足です。
数式を吟味してみましたが、今回のケースなら単純に表示されている行の最大行の値を求める数式のほうがすっきりして簡単ですね。

=IF(B3=1,INDEX(B:B,MAX(SUBTOTAL(3,INDIRECT("b"&ROW(10:50)))*ROW($B$10:$B$50))),"")

Ctrl+Shift+Enterで確定しなくてもそのまま計算できる式にしたいなら、以下のような関数になります。

=IF(B3=1,INDEX(B:B,MAX(INDEX(SUBTOTAL(3,INDIRECT("b"&ROW(10:50)))*ROW($B$10:$B$50),))),"")

お礼

前回に引き続きありがとうございます。

昨日は会議続きで、席にほとんどいることが出来ず、お礼も遅くなってしまいました。
すいません。。。

自宅にて教えていただいた方法を試してみました。
完璧です！

INDEX
INDIRECT
という関数に今まで触れることが無かったので、今回はかな～りの勉強になりました。

MackyNo1さんから
・＃1の最適化されていない手法
・＃2の最適化している手法
の二つの発言をいただけたことで、
「どの関数部分が、どのような目的をもっているのか」
というのも読み取り易いです。

この度は本当にありがとうございました！

回答No.1

MackyNo1

式をあまり吟味していないので、効率的な数式になっていない可能性もありますが、例示のレイアウトで希望のデータを表示したいなら、たとえば以下のような配列数式で表示することができます。

=IF(B3=1,INDEX(B:B,MAX(((MATCH(IF(SUBTOTAL(3,INDIRECT("b"&ROW(10:50))),B$10:B$50,""),IF(SUBTOTAL(3,INDIRECT("b"&ROW(10:50))),B$10:B$50,""),0)=ROW($B$10:$B$50)-9))*ROW($B$10:$B$50))),"")

お礼

前回に引き続きありがとうございます。