EXCEL 特定コード下の全ての品番横に自動転記

質問

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

リスト上B列に下記「コード－製番」、その下に複数の部品品番が入力されています。
これをセット単位として、それぞれコード単位で下行に順に入っています。

＜コード－製番＞
（5桁のコード）00101－（10桁の製番）MA********

例）
00101-MA********
複数の部品品番
00110-MA********
複数の部品品番
（下に続く）

それぞれ「コード－製番」下の複数の部品品番全て、A列に5桁のコードが自動で記載されるようにしたいと考えています。
※「コード－製番」の下の部品品番は、次のコードが表示されるまでの全ての行と考えて下さい。

この場合のマクロについて、どなたか分かる方が居りましたらご教示をお願いします。

回答No.1

keithin · ベストアンサー

とりあえずマクロなら
sub macro1()
　with range("A2:A" & range("B65536").end(xlup).row)
　.numberformat = "0"
　　.formula = "=IF(MID(B2,6,1)=""-"",LEFT(B2,5),A1)"
　.numberformat = "@"
　　.value = .value
　end with
end sub
ぐらいで。

でも，マクロでやらせてる
Ａ２：
=IF(MID(B2,6,1)="-",LEFT(B2,5),A1)
以下コピー
みたいにして，数式で計算して並べさせておくのでも十分に見えますが。

＃「コード－製番」とそれにぶら下がる部品番号の違い，言い換えると最初の「コード－製番」の次の「コード－製番」をどうやって識別できるのか，正しい情報が提供されていません。そういうところをよく加味して，工夫してみて下さい。

お礼

お世話になります。
早速回答して頂き有難うございます。
イメージ通りで驚きです。
それからコメントにありました、次の「コード-製番」の識別についても、ご指示頂いた通り、いろいろな品番が有り説明も難しく、回答を頂けるか不安でした。今後が有ればより注意して質問させて頂きたいと思います。
感謝です。

回答No.2

chie65535

A1セルに

=IF(MID(B1,6,3)="-MA",LEFT(B1,5),OFFSET(A1,-1,0))

と入力して、下方向にコピー。

お礼

お世話になります。
早速回答して頂き有難うございます。
こういう方法もあるんだと、改めて驚きです。
しかし、リストのボリュームがすごい量のため、下方向にコピーするのも大変なんです。
説明が足りず申し訳ありません。
お忙しい中、お手数かけました。