vba - Excel のリストから一致する単語を抽出する

Question

1 つの Excel シート A に名前のリストがあり、別の Excel シート B には説明が含まれています。シートBの記述からシートAにある名前を別のセル/列に抽出したい

例

シートA

ROW 1: PUMP
ROW 2: MOTOR
ROW 3: VALVE
ROW 4: BELT

シートB

ROW 1: FOR DIESEL ENGINE, PUMP, INJECTION, FOR DIESEL ENGINE
ROW 2: LUGGED, VALVE;BUTTERFLY;3";NB
ROW 3: BELT, DRIVE, 3V-9507

任意の式またはマクロを使用して、名前pump、Valve、およびbeltをシート B から別の列またはセルに抽出する必要があります。

Answer 1

数式を使用できる場合は、Find数式を使用していくつかのエラー テストを行うことができます。次の例では、3 つのキーワードそれぞれの存在をテストし、値が見つからない場合は空白を返し、検索されたセルにキーが見つかった場合は "X" を返します。

この式を入れて、3 つのキーごとに変更します。

=IF(ISERROR(FIND("PUMP",$A1,1)),"","X")

数式を列にコピーし、テストごとに別の列を作成します。スクリーンショットは次のとおりです。

最後の引数 を、キーワードが見つかっ"X"たことを示す任意の値に置き換えることができます。