VBAで特定の条件の値を抽出するには

VBAにて以下の動作となるようにするにはどのようにしたらよいかご教授ください。
<詳細>


下記の行が300行ぐらいまであります。

下記より品名コードごとのロットNoを別シートに抽出するにはどのようにしたらよいでしょうか
ロットNoが連番ではなく不規則になっていることがあります。

どなたかご教授お願いします。

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

• 別シートに品名コードを入力すると
  その品名コードのロットNoが自動で全て入力
  されるようにしたいです

    補足日時：2022/02/06 00:54

No.3 ベストアンサー 回答者： GOMΛFU 回答日時： 2022/02/06 09:29

①d列にシーケンシャル№をつけて

②b列でソートします。
③「ctl」＋「f」で品名を探し出して
④コピペします。

No.2 回答者： satoumasaru 回答日時： 2022/02/06 08:28

VBAを使わなくてもVLOOKUP関数の方がはるかに楽ですよ。

スピードも速いですし。

誰でもわかる＆できる！VLOOKUP関数入門ガイド
https://www.hello-pc.net/howto-excel/vlookup/

No.1 回答者： fujillin 回答日時： 2022/02/06 01:40

こんばんは

検索側のレイアウトが不明ですけれど・・

＞品名コードごとのロットNoを別シートに抽出するにはどのようにしたらよいでしょうか
「品名コードで検索して、ロットNoを取得したい」ということですよね？
普通なら、VLOOKUP関数で行うのではないかと思いますけれど。

どうしてもVBAでなさりたければ、VBAで関数式を設定してあげれば同じことができます。
セルを関数式のままにしたくなければ、「コピー」-「値をペースト」で定数化することも可能です。
（コードは「マクロの記録」を取ってみればわかることでしょう）