エクセルマクロについて教えて下さい。

エクセルマクロVBAについて教えてください。
まるっきりの初心者なので困っています。
シート1にあるA列の部番でJ111AH、J111A、J111Bといった先頭の数字が同じでその後のアルファベットが違う3種類の部品があります。
このうちＪ111ＡＨとＪ111Ａは納品時にユニットとして入って来るものでＪ111Ｂは組付け時に
Ｊ111ＡＨに取り付ける部品になります。
この3種類の部番を納品チェック時に単品で納入されないＪ111Ａを”-”で対象外としてＢ列に表示させたいです。
以上のマクロプログラムはどのようにすればいいか教えてください。
自分でいろいろ試してみましたが、うまくいかず詳しい方に聞くのが一番かと思い質問しています。
どうか、詳しい方の回答をよろしくお願いいたします。

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

• 回答ありがとうございます。
  説明が下手ですみません。
  
  A列は部番列、B列は納品チェック欄です。
  やりたい事ですが
  部番列の部番末尾のアルファベットの組合せで判定したい。
  AHならAにーをつける
  BHならBにーをつける
  判定結果をB列に入れる。
  
  以上がやろうとしている事です。
  見にくいですが作りたいもののイメージした画像を付けました。
  ご指導宜しくお願いします。

  
  No.2の回答に寄せられた補足コメントです。 補足日時：2024/10/19 17:27

• 大変わかりやすい回答ありがとうございます。
  追加で確認ですが
  現在、部番列はAですがこれをE列に変更して
  さらに、2行目を6行目からに変更するには
  何処を変えれば良いか教えてください。
  宜しくお願いします。

  No.3の回答に寄せられた補足コメントです。 補足日時：2024/10/21 11:39

• 説明下手ですみません。
  ーを出力したいところは、F列以降で指定した複数列につける場合でお願いします。
  宜しくお願いします。

  No.4の回答に寄せられた補足コメントです。 補足日時：2024/10/21 12:06

• 回答ありがとうございます。
  そうです。
  F列以降でH列、L列と言った感じで選んだ列にーを出力したいです。

  No.5の回答に寄せられた補足コメントです。 補足日時：2024/10/21 12:45

• 何度もすみません。
  最初に指定しておいた列にーを出力したいです。
  指定した列は固定で変わりません。
  宜しくお願いします。

  No.6の回答に寄せられた補足コメントです。 補足日時：2024/10/21 13:08

• 説明が下手なのにやりたい事を省略して質問して
  伝わらず、すみません。
  やりたい事はE列を部番列にして
  L、O、R、U、X、AA、AD、AG、AJ、AM
  AP、AS、AV、AY、BB、BE列に
  ーを出力したいです。
  ーを表示する行は6行目以降になります。
  以上がやりたい事です。
  宜しくお願いします。

  No.7の回答に寄せられた補足コメントです。 補足日時：2024/10/21 15:01

• 回答ありがとうございます。
  実際に使ってみました。
  思っていた通りの表示が出てきました。
  一つ気になったのですが
  部番列の番号で今回対象にしているA、B、AH、BH意外の番号が出てきた際はどうなりますでしょうか？
  可能性が有るものとして
  末尾のアルファベットが違う、部番が数字のみ
  部品名で書かれている
  この様なときに判定には影響は無いのでしょうか？

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

• 回答ありがとうございます。
  今後、部番の表示で先程質問した
  末尾のアルファベットが違う、部番が数字のみ
  部品名で書かれているが追加されるので
  A、B、AH、BHのみを対象にして
  ーを出力したいです。

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

No.1 回答者： satoumasaru 回答日時： 2024/10/19 09:05

＞自分でいろいろ試してみましたが、うまくいかず

その自分で作られたVBAのソースをはりつけてどううまくいかないのかを質問された方がよいですよ。またつくりたい表などを画像で貼り付けた方がいいです。

このサイトは質問サイトであってExcelVBAの作成を請け負うサイトではありませんので。