セルに文章の中に特定のテキストが含まれている場合に行をコピーする

Question

私はまだマクロが新しく、誰かがこれを理解するのを助けてくれたら大変感謝しています。 Excelで

列「A」は（1列と行の間のスペースなし）以下のようにいくつかの行が含まれています

Design: 0120 
Model -traditional 
COLOR - red 
Design:0150 
copybook - quantity to be specified 
Design: 0180 
Still in progress 

は、私が「デザイン」との情報のすべてをコピーするよりもを含むセルを見つける必要がありますこのセルの下にあるシートを次のシートに移動し、「Design」という単語が含まれている他のセルを見つけ、その下のすべての情報を別のシートにコピーします。

どうすればvbaで行うことができますか？セル全体には「デザイン：0150」が含まれているため、「デザイン」という単語をセル内の文の一部として検索することは困難でした。そして、どのように私はそれぞれの "デザイン"セットのコピーと貼り付けを自動化できますか？

Answer 1

あなたはあなたのコードでは、この行を使用してみてくださいすることができます。これは、ここでの目的を果たすことができ

If Left(cell.Value, 6) = "Design" Then 

。 動作しない場合は、完全なコードをお知らせください。