> １　　品名　　個数　　箱�ａ@　マス番号　　〜　　箱�ａ@　マス番号
> ５　　Ｄ      40      3        1      　　〜    3        40
> ６　　Ｅ　　 120      3       41      　　〜    4        60
                                               ~~~↑~~~ ~~~↑~~~

6行目で、箱�ｂｪ「4」に変わる理由 と マス番号が「60」になる理由 を説明してください。

＞この箱にはB６にありますように３箱目のマス番号41から１２０番入れます、
＞ですから次の箱の４箱目60番までとなります。
なるほどです。

＞ずれないようにするにはどうしたらよいのでしょう。
コメント送信時に　図表モード-> ○　　に黒目●を入れてください。

Sub packing()
    Dim App As Application
    Dim r As Range, rRef As Range
    Dim v, Sm, Pos
    Dim NumOfBoxes As Long, TTL As Long, i As Long
    
    Set App = Application
    Set r = Range("B2:B20")
    
    TTL = App.Sum(r)
    NumOfBoxes = App.RoundUp((TTL + Range("B2") + Range("D2")) / 100, 0)
    
    Range("F2:G20").ClearContents
    v = Range("C2:G2").Resize(r.Rows.Count).Value
    
    '箱No.のセル配列を作る
    Range("F2:G2") = Range("C2:D2").Value
    Range("F2").AutoFill Destination:=Range("F2").Resize(NumOfBoxes), Type:=xlFillSeries
    
    '100刻みのセル配列を作る
    Range("G3:G4") = [{101;201}]
    Range("G3:G4").AutoFill Destination:=Range("G3").Resize(NumOfBoxes - 1), Type:=xlFillSeries
    
    Set rRef = Range("G2").Resize(NumOfBoxes)
    Sm = App.Sum(Range("D2") - 1) '処理前のマス番号を算出
    
    For i = 1 To r.Rows.Count
        If App.Sum(r(i, 1)) Then '個数の入力がなくなるまで処理
            Sm = Sm + r(i, 1)
            Pos = App.Match(Sm, rRef, 1)
            
            v(i, 4) = Range("F2")(Pos, 1)
            v(i, 5) = (Sm - 1) Mod 100 + 1
            
            If i < UBound(v) - 1 And App.Sum(r(i + 1, 1)) Then
                v(i + 1, 1) = v(i, 4) + IIf(v(i, 5) = 100, 1, 0)
                v(i + 1, 2) = v(i, 5) Mod 100 + 1
            End If
        Else
            Exit For
        End If
    Next
    
    '結果を上書き
    Range("C2:G2").Resize(r.Rows.Count) = v
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他