セルの中から他と違うものを探すには？

質問

Excel2003で、以下のような処理をしたい場合、どうすればよいでしょうか？

　A B C D E F G H I J
1 　1 1 C 1 1 1 1 1 1 1
2 　E 1 1 1 1 1 1 1 1 1
3 　1 1 1 1 1 D 1 1 1 1

結果
C
E
D

横方向に検索していき、1でないセルの文字を求めたいのです。
セルは横方向に10あります。
全て、1が入力されている場合もあります。その場合は、空白となるようにしたいです。
空白セルはありません。

うまく説明できず、分かりにくいとは思いますが、どなたか知恵をお貸しください。
よろしくお願いします。

回答No.4

KURUMITO · ベストアンサー

K1セルに次の式を入力し、下方にオートフィルドラッグすればよいでしょう。
=IF(COUNTIF(A1:J1,"*")=0,"",INDEX(A1:J1,MATCH("*",A1:J1,0)))

お礼

やりたかった処理そのままでした。
とても助かりました。ありがとうございます。

回答No.3

imogasi

例データA2:A3
111w111111
11q11111
11111111
ーー
B2　　に　=SUBSTITUTE(A2,1,"")
ト入れて下方向に式を複写する。
結果
w
q
空白
と思ったがセルごとに値が有るなら
＆で１０セル分結合した文字列を作ればよいですね。
１０セル結合は、式が長くなるので、私ならVBAでユーザー関数を作る。

お礼

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

回答No.2

maron--5

K1=SUBSTITUTE(CONCATENATE(A1,B1,C1,D1,E1,F1,G1,H1,I1,J1),1,)
★下にコピー

お礼

文字列に変換するのは、思いつきませんでした。
とても参考になりました。ありがとうございます。

回答No.1

tom04

こんにちは！
参考になるかどうか分かりませんが・・・

↓の画像のように作業用の表を使っての方法になります。
元のでデータは「1」か「文字」のどちらかが入っているものとします。（空白でも構いません）
データはJ列までとしています。

まず、L1セルに
=IF(OR(A1="",A1=1),"",COLUMN(A1))
として列方向と行方向にオートフィルでコピーします。

その表のデータを元にA8セル以降に表示させるようにしています。

A8セルを
=IF(COUNT($L1:$U1)>=COLUMN(),INDEX($A1:$J1,SMALL($L1:$U1,COLUMN())),"")
としてこれも列方向と行方向にオートフィルでコピーします。

これで希望に近い形にならないでしょうか？

尚、参考になれば幸いですが、
他に良い方法があれば読み流してくださいね。m(__)m

お礼

COLUMN関数を知らなかったので、大変参考になりました。
ご回答ありがとうございました。