VBAで検索して指定の位置に行を挿入したい

VBAの行挿入について、質問です。
A列に商品番号が並んでいます。新しい商品の番号がZ01101のとき、A列のセルの値を検索して、Z01001の次の行、11行目に行を挿入し、そこのA11のセルに商品番号を入力することは可能でしょうか？また、頭の文字が変わった時にそれを適用したprogramを教えて欲しいです。またZ01011など最後の5桁目が1になった時に、Z01001の次の行に行を挿入することは可能でしょうか？纏まっていなくて申し訳ありません。分かる方がいらっしゃいましたら、是非教えて頂きたいと思っています。よろしくお願いします。

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

• 頭の文字はアルファベットが変わった時です。
  Z00101
  Z00201
  X00101
  X00201
  のようなイメージです。

    補足日時：2020/06/07 15:47

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/06/07 22:42

こんばんは、

＞新しい商品の番号がZ01101のとき、A列のセルの値を検索して、Z01001の次の行、11行目に行を挿入し、そこのA11のセルに商品番号を入力することは可能でしょうか？
ごめんなさい。これだけだと規則性を限定できないかと、、しっかり5桁の意味を説明してくださいね
全く関係ないかも知れませんが、
＞頭の文字が変わった時にそれを適用したprogramを教えて欲しいです。
それが分らん、それとは何ぞやと思いましたが、頭の文字が変わった時に行を追加するコードを示しておきますので
参考になれば、幸いです。

Sub sample()
Dim i As Long, LeftKey As String
　 For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
　　 If Cells(i, "A") <> "" Then
　　　　LeftKey = Left(Cells(i - 1, "A"), 1)
　　　　If LeftKey <> Left(Cells(i, "A"), 1) And LeftKey <> "" Then
　　　　　 Cells(i, "A").EntireRow.Insert Shift:=xlDown
　　　　End If
　　 End If
　 Next
End Sub

この回答へのお礼

説明不足ですみません。
どうもありがとう。

お礼日時：2020/06/09 11:35

No.1 回答者： めぐみん_ 回答日時： 2020/06/07 17:47

＞新しい商品の番号がZ01101のとき、A列のセルの値を検索して、Z01001の次の行、11行目に行を挿入し、

・『新しい番号とはどういに意味？』なのかが不明。その番号はどのように生まれてきたの？
・『Ａ列を検索してZ01001の次の行が11行目ってなに？』何らかの規則性があったの？

＞またZ01011など最後の5桁目が1になった時に、Z01001の次の行に行を挿入することは可能でしょうか？

・条件設定が不明ですし、補足も下一桁が1しかない上に『下一桁が１であれば全てZ01001の次の行に挿入されるの？』と言う疑問しかない。

と初級者的には疑問だらけでしかない。（理解できる程のレベルになれたら良いのになぁ）