エクセル関数でおしえてください。

質問

エクセル関数でおしえてください。
以下のような表があります。

　　A 　　　　B　 　　　C 　　　　D 　　　　E　
1 いちご　　　1
2 バナナ　　　　　　　　1　
3 ぶどう　　　　　　　　　　　　　1
4 サクランボ　　　　　　　　　　　　　　　　1
5 もも　　　　1
6 りんご　　　　　　　　1
7 なし　　　　　　　　　　　　　　1
8 すいか　　　　　　　　　　　　　　　　　　1
9 果物(1)　いちご　バナナ　ぶどう　サクランボ
10果物(2)　もも　　りんご　なし　　すいか

B1～E8に「1」のフラグをたてます。
（フラグはランダムにたちます）
9、10行目に関数をいれて、いちご、もも・・と果物の名前を表示させたいです。

どなたかいい知恵をかしてください。
よろしくお願いします。

回答No.1

MackyNo1 · ベストアンサー

B9セルに以下の式を入力し、右方向に４つ、下方向に２つオートフィルしてください。

=INDEX($A:$A,SMALL(INDEX((B$1:B$8<>1)*1000+ROW(B$1:B$8),),ROW(A1)))&""

お礼

お礼おそくなりまして申し訳ありません。
当方の知識不足で配列形式がよくわからず・・・解読するのに時間がかかりました。

この関数すごいですね！！
うまくいきました。
そして、とても勉強させてもらいました。
本当にありがとうございました（≧▽≦）

回答No.3

某HN クロメート(Chromate)（@CoalTar）

＞考えてみましたが、まどろっこしくなりました；；
第2弾を
B9セル =INDEX($A$1:$A$8,MATCH(1,B$1:B$8,0))
B10セル =INDEX($A$1:$A$8,MATCH(1,INDEX(B1:B8,MATCH(1,B1:B8,0)+1):B8)+MATCH(1,B1:B8,0))

定番の配列数式なら(範囲が狭いこと)
B9セル
=IF(COUNTIF(B$1:B$8,1)<ROW(A1),"",
INDEX($A$1:$A$8,SMALL(IF(B$1:B$8=1,ROW($A$1:$A$8)),ROW(A1))))
[Ctrl]+[Shft] ＋[Enter] で確定({}で囲まれる)

お礼

お礼遅くなりまして申し訳ありません。
第２弾ですが、1列にフラグが２つ以上たつ可能性があるので
（そのことを明記していなかったので申し訳ありません）
とてもわかりやすかったのですが、今回は配列数式の方がよさそうです。
ほんとうに勉強になりました。
ありがとうございます☆

回答No.2

guchi_yama

B9=INDIRECT("A"&MATCH(1,B1:B8,0))

B10=INDIRECT("A"&MATCH(1,INDIRECT(CHAR(COLUMN()+64)&MATCH(1,B1:B8,0)+1&":"&CHAR(COLUMN()+64)&"8"),0)+MATCH(1,B1:B8,0))

それぞれ右にフィル

考えてみましたが、まどろっこしくなりました；；
No.1の方の答えの方が良いですね＾＾

お礼

お礼おそくなりました。申し訳ありません。
INDIRECT関数は使ったことがありませんでした。
おもしろい使い方で勉強になりました。
ありがとうございました☆