Excelシートのある番地の文字が一致したすべての行を別シートに転記する方法

ｖｂａ初心者です。
ネットで「ｖｂａ複数条件一致」で検索して色々なものを見て自分なりにやってはいるのですが、どうしても思い通りにいきません。
お助けいただけると嬉しいです。

エクセルシートのある番地（例えば：E6)に記載されている文字が一致したものすべての行を別シートに転記する方法を調べていますが、全く分かりません。

もう少し分かりやすく説明しますと例えばE6に『光源氏』という文字が入っているすべての行を『光源氏』の別シートに転記する方法です。このE6には『宮本武蔵』、『明智光秀』等、数種類の文字が入ります。現在、その種類は50くらいあれば足りると思います。

VBAは全く初心者ですので、質問の意味も理解されるかは分かりませんが、わかる範囲で結構ですので教えて下さい。

質問者からの補足コメント

• 説明が分かりにくくて申し訳ありません。
  図のような感じで色付けしている部分の行全部を別シートに転記します。
  色で分けているのは同じ色は同じシートに転記するようにします。
  色はこれだけではなく、50種類くらい必要になります。
  分かりにくくて申し訳ありませんが、ご教授お願い致します。

  
    補足日時：2022/10/25 16:53

• 説明足らずですいません。
  画像で分かりやすくなったかは分かりませんが、マクロ実行後は同じ色の行全てを転記するようしたいです。サンプルでは三色ですが、実際は約50くらい必要になると思います。要するに同じ入荷先の行が約50シートに分かれて転記されるようにしたいです。

  
    補足日時：2022/10/27 08:08

• gyazoを起動して資料を添付しました。これで分かるでしょうか？

  
    補足日時：2022/10/27 10:20

• これで分かるでしょうか？
  度々申し訳ありません。
  
  https://gyazo.com/7d264fe098c484c0a1113f7ad3d80b45

    補足日時：2022/10/27 10:39

• https://gyazo.com/39fab2910c8c93a55009dd27df7f712b
  https://gyazo.com/fdb4252e7f338af886f80902d9d6403c
  https://gyazo.com/6f8c307552bd562760cdae22087cd63c
  
  質問された内容でほぼ合っています。同じ色には同じ文字が入ります。ただ、色の種類は3つではなく、50種類くらいあります。この50種類の文字のうち同じ文字が入る行を全て別シートに転記するという意味です。
  宜しくお願い致します。

    補足日時：2022/10/27 14:11

• 補足になります。E6は忘れて下さい。例えばのセル番地を適当に入力しただけです。本題はAP～AZに入る色で塗られた部分が一致した場合、同じシートに色毎に転記していくというマクロになります。

    補足日時：2022/10/27 14:27

• https://gyazo.com/716f88f8dfe5a31e3ed5322db44f922c
  https://gyazo.com/79dabed9a165d768697ad6bb1da80d19
  https://gyazo.com/84c1a812eef8b455c432ebcb3946f82d
  https://gyazo.com/586e9453fabc642929d330a8336a9b07
  
  こんな感じで分かりますか？
  何度もすいません。

    補足日時：2022/10/27 15:08

• 転記元のシートは月ごとに変わります。来月は『2022.11』にしようと思いますが、都度変更しないといけなくなる可能性が高いので『転記元』とでも変更してブックごとに月別で保存するようにしようと思います。転記先は関数が潰れても問題ありませんが、出来れば転記は『CJ』の『合計点』までとしたいです。実際転記元に色は付けませんので、色を含めて転記する予定はありません。コピーは値だけで結構です。
  現在、自分でも奮闘中ですが、中々上手くいってません。初心者にはちょっときついかも知れません。
  宜しくご教授の程、お願い致します。

  No.8の回答に寄せられた補足コメントです。 補足日時：2022/10/28 16:11

• 実際の運用は色ではなく、文字で入力します。要するに同じ色には必ず全一致で同じ文字が入ります。説明が分かりやすい様に色で分けただけです。転記元のAP～のセルの文字が一致した行を同じ文字のシートに転記していくマクロを組みたいという事です。分かりにくくて申し訳ありません。

  No.9の回答に寄せられた補足コメントです。 補足日時：2022/10/29 07:25

• これがやりたかったマクロです。織田信長と記載されている記載元は全て織田信長のシートに転記したいです。この出荷団体が50程ありますので、実際は50シートが並ぶことになり、その一つ一つのE列は同じ団体名が入ります。

  No.10の回答に寄せられた補足コメントです。 補足日時：2022/10/29 16:49

No.1 回答者： fujillin 回答日時： 2022/10/25 10:40

こんにちは

内容がはっきりとしませんけれど、想像するところ、
「表の中から、ある列の値が指定セル（E6）の内容と一致する行を別シートに抽出したい」ということと勝手に解釈しました。

通常、ありそうな方法としては、
1）表を順に見て行って（＝ループ）、条件に合致したら転記する
考え方と、
2）エクセルの機能のオートフィルターを利用してフィルターをかけ、まとめて転記
がありそうです。

以下は、それっぽ解説のサイトの例です。
◇Excel VBA ループで検索して別シートに転記する
https://www.mutable.work/entry/search-by-loop

◇オートフィルタでデータを抽出し、別シートに貼り付ける
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/p …