セル内の特定文字列の検索方法について

質問

セルＡ1には下記のいずれかの文字が入るものとします。

〇〇〇大学大学院
〇〇〇大学
〇〇〇短期大学
〇〇〇高等専門学校
〇〇〇高等学校
〇〇〇中学校
〇〇〇小学校
〇〇〇幼稚園
〇〇〇保育園

〇〇〇は任意の文字で何が入るか、何文字入るかわかりません。
Ａ1セルに入った文字列を調べ、たとえば大学院なら1、大学なら2、短期大学なら3、・・・・保育園なら9、該当しない場合10という具合に表示させる関数はないでしょうか？
よろしくお願いします。

回答No.2

comv · ベストアンサー

こんにちは

Ａ１に入力　として

適当な箇（もしくは別シートに）データ表を作成

　　　　Ｈ　　　　Ｉ
１　大学大学院　　１
２　大学　　　　　２
３　短期大学　　　３
４　高等専門学校　４
５　高等学校　　　５
６　中学校　　　　６
７　小学校　　　　７
８　幼稚園　　　　８
９　保育園　　　　９

セルＢ１に

=IF(A1="","",MIN(IF(ISNA(MATCH("*"&$H$1:$H$9,A1,0)),10,$I$1:$I$9)))

と入力後　Shift+ctrlを押したままEnterで入力確定
（配列数式で成功すれば数式が　{　}　で括られます）

必要行複写

お礼

ありがとうございます！
まさにこれです。
実際に入力される文字列にはこのあとにも何か入る可能性があるので、以下のようにしてみました。

=IF(A3="","",MIN(IF(ISNA(MATCH("*"&$H$1:$H$9&"*",A3,0)),10,$I$1:$I$9)))

配列数式って凄いですね！

回答No.1

imogasi

Ｉｎｓｔｒ関数を使った回答例。
下記をＶＢＥの標準モジュールに貼りつけ
シートのコードをセットしたいセルに
=gakuenc(A1)のようにいれます。
Ａ２以下にＡ１の式を複写してください。
同じ文字列（語句）が含まれたものが、探したい語句集団の中にあります。
短期大学と大学などです。この場合文字数の多い方（短期大学）を前に持ってきてください。その点お望みのコードと一部違っています。大学を探し、見つかれば短期を探すように場合分けして、木目細かくやればお望みのようにすることは可能と思いますが、長くなるので、このままにします。
Function gakuenc(a)
t = Array("", "大学大学院", "短期大学", "大学", _
"高等専門学校", "高等学校", "中学校", "小学校", _
"幼稚園", "保育園")
For i = 1 To UBound(t)
p = InStr(a, t(i))
If p > 0 Then
gakuenc = i
Exit Function
End If
Next i
gakuenc = "なし"
End Function

お礼

ありがとうございます！！
高度すぎて仕組みはほとんどわかりませんでしたが、望みのものに近いものが得られました。
エクセルは奥がふかいですねえ！