同行複数セルの値から条件で特定の値を抽出したい

質問

次のようなことをするにはどうすればよいですか

やりたいこと：複数の判定から、総合判定を出したい。

　1　　A　　 　B　　C　　　Ｄ　　　　E　　　　F
　2　　　　　血圧　体重　血液検査　　運動　　総合判定
　3　佐藤　　　B　　C　　　A　　　　 D　　　【ココ】　
　4　鈴木　　　A　　A　　　A　　　　 B　　　【ココ】

B～E列のセルには、A・B・C・Dのどれかが入力されている。
B～E列のうち、Dが1つでもあれば、F列に「D」
B～E列のうち、Dがなく、Cが1つでもあればF列に「C」
B～E列のうち、D・Cがなく、Bが1つでもあればF列に
B～D列のうち、D・C・Bがなく、AのみであればF列に「A」
となるように、F列に表示するには、F列【ココ】にはどんな式を入れればよいですか。

ちなみに、F3には「D」が、F4には「B」が表示されるようにしたいのです。

よろしくお願いいたします。
※別の方法でもっと簡単にできる方法がありましたら、重ねて教えて下さい。

回答No.1

mt2015 · ベストアンサー

ABCD以外が入らないならこんな感じでどうでしょうか。
=IF(COUNTA(B3:E3)<>4,"-",IF(COUNTIF(B3:E3,"D"),"D",IF(COUNTIF(B3:E3,"C"),"C",IF(COUNTIF(B3:E3,"B"),"B","A"))))
B:E列が埋まっていないときは「-」を表示します。

お礼

回答ありがとうございました！早速使ってみて、こちらの希望通りの表示がされました。
また一番早く回答を頂いたので、ベストアンサーとさせていただきました。

ひとつ勉強になったことは、、、質問する際には条件をすべて出さないとダメなんだ、ということです。

実は、実際の表には、「A」「B」「C」「D」の他に、「E」と「T」と空欄の場合があるのです。
ですから、「B:E列が埋まっていないとき（→空欄の場合があるとき）」について
考えた式を作ってくださったので大変ありがたかったです。
（増えた「E」と「T」については「たぶんこうすれば良いだろう」と試したらアタリました。）

他の方も折角いろいろ考えて下さっていたのですが、「埋まっていないとき」の条件がなかったりすると、
表示が「0」や「FALTE」になったりとうまくいかったです。
回答しやすいよう、質問内容をシンプルにしようとしたのが裏目に出てしまいました。

またわからないことがありましたら、教えてください。よろしくお願いいたします。

回答No.9

bunjii

回答No.8の数式を一部訂正します。
エラー防止を考慮しました。
=CHOOSE(MAX(INDEX((B2:E2={"";"A";"B";"C";"D";"E";"T"})*ROW(A$1:A$7),0)),"","A","B","C","D","E","T")
　　　　↓
=CHOOSE(MAX(INDEX((B2:E2={"A";"B";"C";"D";"E";"T"})*ROW(A$1:A$6),0))+1,"","A","B","C","D","E","T")

回答No.8

bunjii

>「E」と「T」はどうにかなったのですが、「空欄」があると表示がエラーになってしまい、このあとどうすればよいのかわかりませんでした・・・。
すべてが空欄のときエラーになることは回答No.4に明示しました。
対策は幾つかの方法があります。
一番簡単なものを1つだけ提示します。
=CHOOSE(MAX(INDEX((B2:E2={"";"A";"B";"C";"D";"E";"T"})*ROW(A$1:A$7),0)),"","A","B","C","D","E","T")
これはCHOOSE関数の第1引数を算出する数式を工夫してすべてが空欄のとき1となり、その他は文字列の順位で2～7までを検出しています。
尚、すべてのセルに関係のない文字列が入力されていると別の要因のエラーになります。
Excel 2007以降のバージョンではIFERROR関数ですべてのエラー原因に対応できるのでエラー対策が考え易いかも知れません。

回答No.7

tsubu-yuki

> Excel素人でして
大丈夫です。ご質問を拝見すればなんとなく、分かります(笑)。
ですが、ＩＦ関数とＣＯＵＮＴＩＦ関数については
ご自身で少し調べていただきたいところです。
それが脱素人・脱初心者への一歩ですから。

さて。

> 「E」と「T」と「空欄」の場合があるのです。
はい、了解です。
・・・が、それぞれの時にどうしたいのか？が抜けちゃいましたね。
> 特に「空欄」を
とのことですが、回答者から見ても同じことが言えるのです。
「空欄」がどの程度あったらどうするのか？が欲しいところです。
まずは私（のみならず、皆さん）が提示した式を使って色々お試しください。
自身ののみ解説すると、
「Ｂ列～Ｅ列が全て空欄であればＦ列にも空白を返す」
ようにしてあります。
　　※提示の式だとＡ～Ｄ以外の文字列でも空白が返りますが。
条件範囲内にＡもＢもＣもＤも無い⇒全て空欄
　　　　　　　　　　　　　　　（あるいは条件外の何か）ですからね。
それでは足りないのであれば、条件を極力わかりやすく詳細にご説明ください。
・・・という中に「空欄を数える」のヒントも含んでいます。
まぁつまり
　　=COUNTIF(B3:E3,"")
で空白を数えてくれちゃいます。
つまり「””⇒空白」です。
　　※厳密には少し違いますよ。
　　　でも、今の段階ではそれで覚えていてもまだいけます。
　　　おいおい覚えていけば良いです。

さておき。
エクセルではＩＦ関数を重ねてやると概ね「前から順に」処理します。
ちなみにＩＦ関数は
　＝ＩＦ（条件，そうだったら，そうじゃなかったら）
という関数です。
なので先般の私が提示した式をざっくり解説すると
「ぞうじゃなかったら」のところにどんどん重ねてやって、
「どれも当てはまらなかったら空白（""）を返しなさいね」
という式なのですね。
つまり
　=IF(範囲に"D"があったら，"D"を，無い場合（範囲に"C"があったら，"C"を，無い場合・・・・（最終的にドレも無かったら空白（""）を））））
という式なのです。んー、日本語で表現するのは難しい(笑)。
余計混乱しちゃったらごめんなさいです。

ってことは、
「E」「T」「空欄」の場合も同様に重ねてやればＯＫぽいですね。
重要なのは「優先する順番」だけです。
健康診断には明るくないので何とも言えませんが、
　　Ｔ→Ｅ→・・・→Ａ→全部空欄なら空白
でいいのかなー、とエスパーし、改めて
　　Ｆ３セル：=IF(COUNTIF(B3:E3,"T"),"T",IF(COUNTIF(B3:E3,"E"),"E",IF(COUNTIF(B3:E3,"D"),"D",IF(COUNTIF(B3:E3,"C"),"C",IF(COUNTIF(B3:E3,"B"),"B",IF(COUNTIF(B3:E3,"A"),"A",""))))))
でいけるような気がしますよ。
一つでも空欄があれば空白を、なら・・
先頭にそのＩＦ関数式を入れてやればＯＫですね。

うん、重ねてアレですが・・・
余計に解りづらくしていたらごめんなさいです（汗）。

回答No.6

tsubu-yuki

ごく単純な関数で頑張るなら
　　Ｆ３セル：=IF(COUNTIF(B3:E3,"D"),"D",IF(COUNTIF(B3:E3,"C"),"C",IF(COUNTIF(B3:E3,"B"),"B",IF(COUNTIF(B3:E3,"A"),"A",""))))
いわゆる、ＩＦのネストと言われるやり方です。
半角と全角は区別しますが、大文字小文字は混在してもＯＫです。
関数自体が単純で初心者さんでもなんとかなる（と思われる）のですが、
条件が増えれば増えるだけ読みづらくなるのが欠点ではありますね。

私が作って自己満足で済ます（他人に配布しない）なら、
　　Ｆ３セル：=CHAR(MAX(CODE(B3:E3)))
　　　　　　　※CTRL+SHIFT+ENTERで確定（配列数式）
を使うかなぁ・・と少しだけ考えてみました。
２番さんと同じ考え方ですが、
これだと項目（対象の列数）が増えても式がスッキリしますしね。
配列数式は他人さんに説明するのが億劫なところが最大の問題です(笑)。

お礼

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

ですが、、、すみません。こちらの、条件をすべて出していなかったので
せっかく回答頂いた式ですが使いこなせませんでした。

実は、実際の表には、「A」「B」「C」「D」の他に、「E」と「T」と「空欄」の場合があるのです。
特に「空欄」をどうすればよいのか判らず・・・。
回答しやすいよう、質問内容をシンプルにしようとしたのが間違いでした。
お手間をかけて申し訳ありません。

「[No.2]の asciizさんと同じ考え方の式とのこと。
式がゴチャゴチャしていない、シンプルなところがすごいのだろうなと思いました。
ですが、Excel素人でして「配列数式」についても？？？な状態で・・・。本当にすみません。
もっと勉強して理解しようと思います。

またわからないことがありましたら、教えてください。よろしくお願いいたします。

回答No.5

imogasi

ＶＢＡでユーザー関数を作ってみた。
データ例　Ｆ列は当初は空白ですが、下記回答の結果です。
1 A B C Ｄ E F
2 氏名 血圧 体重 血液検査 運動 総合判定
3 佐藤 B C A D D
4 鈴木 A A A B B
5 木村 A A A C C
6 大野 A A A Ａ A
7 佐野 B C A Ａ C
8 木下 A D A B D
9 熊本 B Ｂ A C C
10 東 A B A B B
11 西村 C C B B C
ーーー
標準モジュールに
Function hantei(b)
i = b.Row
Set Rng = Range("C" & i & ":F" & i)
' MsgBox Rng.Address
'--
If WorksheetFunction.CountIf(Rng, "D") > 0 Then
hantei = "D"
Exit Function
ElseIf WorksheetFunction.CountIf(Rng, "C") > 0 Then
hantei = "C"
Exit Function
ElseIf WorksheetFunction.CountIf(Rng, "B") > 0 Then
hantei = "B"
Exit Function
ElseIf WorksheetFunction.CountIf(Rng, "A") > 0 Then
hantei = "A"
Exit Function
Else
hantei = "x"
End If
End Function
シートのG３セルに
=hantei(B3)　と関数を入れる。下方向に式を複写。
結果データ例の通り。
ーー
本件は関数だけでもできるが、条件（＝優先関係）が複雑になると、
ＶＢＡなら、きめ細かくコードを修正して対処できる場合が出てくると思う。

お礼

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

ですが、、、すみません。こちらの、条件をすべて出していなかったので
せっかく回答頂いた式ですが使いこなせませんでした。

実は、実際の表には、「A」「B」「C」「D」の他に、「E」と「T」と「空欄」の場合があるのです。
特に「空欄」をどうすればよいのか判らず・・・。
また、Excel素人だとも書いておけばよかったです。
VBAはほとんど使用したことがないので、VBAを始める画面でさえ出せませんでした・・・。

回答しやすいよう、質問内容をシンプルにしようとしたのが間違いでした。
お手間をかけて申し訳ありません。

VBAについては今後勉強していきます。
またわからないことがありましたら、教えてください。よろしくお願いいたします。

回答No.4

bunjii

下記のような模擬データとしてF2セルへ数式を設定します。
　　　A　　　　B　　C　　　Ｄ　　　　E　　　　F
　1　名前　　血圧　体重　血液検査　　運動　　総合判定
　2　佐藤　　　B　　C　　　A　　　　 D　　　【ココ】　
　3　鈴木　　　A　　A　　　A　　　　 B　　　【ココ】
=CHOOSE(MAX(INDEX((B2:E2={"A";"B";"C";"D"})*ROW(A$1:A$4),0)),"A","B","C","D")
F2セルを下へ必要数コピーすれば目的通りになるでしょう。
但し、B列からE列までAからDまでの文字が無い（すべてが空欄も含む）ときはエラーになりますのでエラー防止が必要のときはIF関数またはIFERROR関数で対処してください。

お礼

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

ですが、、、すみません。こちらの、条件をすべて出していなかったので
せっかく回答頂いた式ですが使いこなせませんでした。

実は、実際の表には、「A」「B」「C」「D」の他に、「E」と「T」と「空欄」の場合があるのです。
「E」と「T」はどうにかなったのですが、「空欄」があると表示がエラーになってしまい、
このあとどうすればよいのかわかりませんでした・・・。
回答しやすいよう、質問内容をシンプルにしようとしたのが間違いでした。
お手間をかけて申し訳ありません。

回答の式は、空欄がない表の場合に使ってみたいと思います。
またわからないことがありましたら、教えてください。よろしくお願いいたします。

回答No.3

msMike

F3: =IF(COUNTIF(B3:E3,"A")=4,"A",IF(COUNTIF(B3:E3,"D"),"D",IF(COUNTIF(B3:E3,"C"),"C","B")))

でも、[No.2]の asciizさんの提示式は実にお見事！脱帽です。

お礼

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

ですが、、、すみません。こちらの、条件をすべて出していなかったので
せっかく回答頂いた式ですが使いこなせませんでした。

実は、実際の表には、「A」「B」「C」「D」の他に、「E」と「T」と「空欄」の場合があるのです。
「E」と「T」はどうにかなったのですが、「空欄」があると表示が「0」になってしまい、
このあとどうすればよいのかわかりませんでした・・・。
回答しやすいよう、質問内容をシンプルにしようとしたのが間違いでした。
お手間をかけて申し訳ありません。

またわからないことがありましたら、教えてください。よろしくお願いいたします。

回答No.2

asciiz

ご質問にある4つの条件判断は、以下の一文にまとめられると考えました。

「4つの判定値のうち、最も大きいものを表示する。」

大きいっていうのは A < B < C < D の順番でってことです。
ただ、Excelは文字列の大小比較はできないので、「文字コード」に直して、比較します。
文字から文字コードにするのには、CODE 関数。
文字コードから文字に戻すのは、CHAR 関数。
そして複数の物のうち、最も大きいものを返すのは、MAX 関数。

以上を組み合わせると、

F3 =CHAR(MAX(CODE(B3), CODE(C3), CODE(D3), CODE(E3)))

となりました。
以上を入力して、F3をF4にコピーすれば4行目用になります。

注意しなければいけないのは、「A～Dを半角もしくは全角、どちらかに統一すること」。
そして「余計な空白などが混じらないようにすること」。
もし手入力で、半角B・C・Dがあるところに、全角の「Ａ」が混じると、漢字である全角「Ａ」が一番大きいものとなって表示されてしまいます。

そのためには、小さいテーブルを作ってA～Dをドロップダウンリストから選択させるようにすればいいと思います。

お礼

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

ですが、、、すみません。こちらの、条件をすべて出していなかったので
せっかく回答頂いた式ですが使いこなせませんでした。

実は、実際の表には、「A」「B」「C」「D」の他に、「E」と「T」と「空欄」の場合があるのです。
特に「空欄」をどうすればよいのか判らず・・・。
（あと、「小さいテーブルを作ってA～Dをドロップダウンリストから選択させるようにすればいい」というのも
？？？でして・・・。Excel素人だとも書いておけばよかったです。）
回答しやすいよう、質問内容をシンプルにしようとしたのが間違いでした。
お手間をかけて申し訳ありません。

回答3番msMileさんの「[No.2]の asciizさんの提示式は実にお見事！脱帽です。」のメッセージにあるように、
式がゴチャゴチャしていない、シンプルなところがすごいのだろうなと思いました。
「空欄」のない表で、「ドロップダウンリスト」を勉強して試してみたいと思います。

またわからないことがありましたら、教えてください。よろしくお願いいたします。