excel vba для каждого утверждения

Question

Мне нужна помощь с каждым оператором, который заполняет

• Num до xlFillValues ​​на основе количества
• Num_start xlFillSeries на основе количества
• Start_Pallet_Num xlFillValuesбаза на Количество / 120

      Num              Quantity         Num_Start           Start_Pallet_Num
    720XA00000         10000            81000003                1261

Answer 1

  Sub a()
    quantity = Cells(2, 2).Value
    stcount = 0
    stvalue = Cells(2, 4).Value
    For loop_ctr = 2 To quantity
    Cells(loop_ctr + 1, 1) = Cells(2, 1).Value
    Cells(loop_ctr + 1, 3) = Cells(loop_ctr, 3).Value + 1
    If quantity / 120 > 83 Then
       stcount = stcount + 1
          If stcount = 120 Then
          stvalue = stvalue + 1
          End If
        Cells(loop_ctr + 1, 4) = stvalue
    End If
    counter = counter + 1
    Next loop_ctr
    End Sub

Попробуйте этот код

Answer 2

Sub a()
quantity = Cells(2, 2).Value
For loop_ctr = 2 To quantity
Cells(loop_ctr + 1, 1) = Cells(2, 1).Value
Cells(loop_ctr + 1, 3) = Cells(loop_ctr, 3).Value + 1
Cells(loop_ctr + 1, 4) = quantity / 120
counter = counter + 1
Next loop_ctr
End Sub

Попробуйте это и дайте мне знать, ожидаете ли вы, как это Я получил такой вывод

нисходящий голос

  Sub a()
    quantity = Cells(2, 2).Value
    stcount = 0
    stvalue = Cells(2, 4).Value
    For loop_ctr = 2 To quantity
    Cells(loop_ctr + 1, 1) = Cells(2, 1).Value
    Cells(loop_ctr + 1, 3) = Cells(loop_ctr, 3).Value + 1
    If quantity / 120 > 83 Then
       stcount = stcount + 1
          If stcount = 120 Then
          stvalue = stvalue + 1
          End If
        Cells(loop_ctr + 1, 4) = stvalue
    End If
    counter = counter + 1
    Next loop_ctr
    End Sub