結合セルB列へ連番を振っていき、E列に空白セルがあれば連番を振り直したいです。

Question

結合セルB列へ連番を振っていき、E列に空白セルがあれば連番を振り直したいです。
現状のコードでは開始行から終了行まで連番を振り続けてしまうのでどう条件分岐を指定してあげてやればいいわからないです。
写真が実行したい動きです。

sub 結合セルに連番を入力する（）
Dim i As Integer, myRow AS Integer, myRange As Range

myRow = Range("B2").CurrentRegion.Rows.Count + 1
Set myRange = Range("B2")
i = 1
Do While myRange.Row <= myRow
myRange.Value = i
Set myRange = myRange.Offset(1).MergeArea
i = i + 1
Loop
Set myRange = Nothing

END Sub

Answer 1

現状では単純にiをカウントアップし続けていますが、条件を満たした場合にリセットしてあげればいいと思います。

下記の例では連番を出力しようとしている行のE列が空欄ならカウンターをリセットする判定を行っています。

Do While myRange.Row <= myRow
    If Cells(myRange.Row, "E") = "" Then
        'E列が空欄ならカウンターリセットし、連番出力しない
        i = 0
    Else
        '連番出力
        myRange.Value = i
    End If
    
    Set myRange = myRange.Offset(1).MergeArea
    i = i + 1
Loop

この例では連結セルの先頭行でしかE列の空欄チェックを行っていません。
連結セルの先頭行以外でE列に空欄があった場合にも行番号をリセットしたいのであれば、判定部分にもう少し手を加える必要があります。

参考になれば幸いです。