Excelで指定の文字列を含むかを判定したい

分からないことだらけで申し訳ありませんが、
何卒よろしくお願いします。

Excelで以下のような表を作成し、
コメントの列にある文章中に条件値の列の
いずれかの単語が含まれていれば、その単語を
結果に出力するという表を作成したいです。

コメント	結果	条件値
今年もよろしく	今年	疲れ
誕生日おめでとう	誕生日	今年
おはようございます	-	明日
お疲れさまです	疲れ	誕生日

現在は条件値の列が無く、
以下のようなIF関数+COUNTIF関数+ワイルドカードを
結果のセルにいれて条件値を判定、出力しています。

Excel
1
2=IF(COUNTIF(判定対象,"*条件値1*"),真の場合,
3+IF(COUNTIF(判定対象,"*条件値*2"),真の場合,偽の場合...
4

これで動きとしては問題ないのですが、
条件値が100近くあるため関数がものすごく長くなってしまい、
新しい条件値を追加したり整理するのが非常に大変で分かりづらいため、
上記のような表を用いた上で同じ動きが維持できないかと考えています。

VLOOKUPやマクロのFor Nextで作ってみようとしたのですが
上手くいかず、、作成のヒント等お分かりになられる方がいらしたら
ご教示いただけませんでしょうか。

何卒よろしくお願いいたします。

hatena19

2021/12/07 23:14

エクセルのバージョンはなんでしょうか。

行動規範の内容に同意します

回答1件

ベストアンサー

エクセルのバージョンが不明だが、スピル機能が使える最近のバージョンなら、

EXCEL
1=IFERROR(INDEX($C$2:$C$100,MATCH(1,COUNTIF(A2,"*"&$C$2:$C$100&"*"),0),1),"")

$C$2:$C$100 は条件値の範囲

古いバージョンなら、CTRL+SHIFT+ENTER で配列数式にしたらいけるかも知れない。
（環境がないので確認はしてない。）

最近のバージョンなら下記でもいける。

EXCEL
1=XLOOKUP(1,COUNTIF(A2,"*"&$C$2:$C$100&"*"),$C$2:$C$100,"",2)

VBAのサンプル

vba
1Private Sub ExtractKeyword()
2    Dim rng As Range
3    Set rng = Range("A1").CurrentRegion     '表範囲
4    Set rng = Intersect(rng, rng.Offset(1))    '見出し行を除く
5    Dim c As Range
6    For Each c In rng.Columns(1).Cells
7        Dim keyword As Range
8        For Each keyword In rng.Columns(3).Cells
9            If c Like "*" & keyword.Value & "*" Then
10                c.Offset(, 1).Value = keyword.Value
11                Exit For
12            End If
13        Next
14    Next
15End Sub