Excel：キーワードのリストのテキストを検索するマクロ

Question

テキストのセルを取り、キーワードのリストをセルで検索するマクロを記述する必要があります。返されるすべてのキーワードは、1つのセルに挿入する必要があります。

Answer 1

私はあなたを助けるかもしれない何かがあります。次のようにあなたのシートと仮定すると次のとおりです。Cell D2で

は式を書くKeywordsがある=Keywords($A$2:$A$7,C2)ユーザー定義関数、2 $ A $：$ A $ 7があるあなたのキーワード範囲とC2は、キーワードを検索するための文字列です。必要に応じて式をドラッグ/コピーします。次のように

ユーザー定義関数Keywordsは次のとおりです。

Function Keywords(Words As Range, strText As Range) 
    Dim c As Range 
    For Each c In Words 
    If InStr(1, strText, c, 1) > 0 Then Keywords = Keywords & ", " & c 
     Next c 
     If Keywords = 0 Then 
     Keywords = "-" 
    Else 
     Keywords = Right(Keywords, Len(Keywords) - 2) 
    End If 
End Function