条件を満たす列を検索し、その行の他のセルを新しいシートにコピーします。

Question

列にテキストを見つけるマクロを作成しようとしています（D）。条件が満たされた場合は、別のシートに私が探している基準は、セルにある唯一のテキストではありません。例として、基準は「Prodigy」でもよいが、Cellは「Prodigy、Prodigy Tubing Set」を含むことができる。

"Sheet1"というシートがあり、ヘッダーを持つすべての生データがあります。条件を満たす値を持つ列は「D」です。

データをコピーする場所が他にもあります。たとえば、シートの1つは「Prodigy」と、もう1つは「Prodigy Tubing Set」となります。 20枚までの他のシートがあります。

Macro: Given row X copy specific cells from that row to a new sheet

私は、コードに組み込まれて上記のリンクで人物を使用してみましたが、私の基準は、細胞内の唯一のものだった場合にのみ動作します。

A picture of what my spreadsheet will look like is below. 私はこれでかなり新しく、助けになると思います。これが理にかなってほしい。

Answer 1

あなたが探している機能はInStrだと思います。 If InStr(cell.Value, "Prodigy") > 0 Then

はもちろん、あなたはおそらく、いくつかのセルの値または変数とリテラル「プロディジー」を置き換えます：あなたはこのような何かをしたいだろう、その代わりIf cell.Value = "Card" Then

：

あなたが投稿の例では、これを持っています。