Question

EXCEL VBA CODE 或者函数问题？

数列 J 是总共数量，"J4"表示:SKU "I4" RLD1811445, 总共12 个， 数列 “U4” 表示， 一盒2个，数列“W4”表示总共6 盒。数列O4 表示一盒2个，O5是8个，O6是8 个。。。。。。请看J5，数量是54个，一箱是8个，所以，O5是8，Q5是48，剩下6个，这时要多开新的一行I6=RLD1811911, J6=6, O6=6, Q6=6,以此类推，可不可以用VBA Code去写，或者什么公式可以完成他，如果J2 列数量除的尽O 列每箱个数，直接填写，O列，Q列数据，如果除不尽，则要新开一行，收入剩下的数量。请大神帮忙，谢谢。

Answer 1

Sub test2()
Application.ScreenUpdating = False
Dim r, i&, a
r = Cells(Rows.Count, "i").End(3).Row
For i = r To 4 Step -1
Cells(i, "o") = Val(Cells(i, "u"))
Cells(i, "q") = Cells(i, "w") * Val(Cells(i, "u"))
a = Val(Cells(i, "j")) - Cells(i, "q")
If a Then
Rows(i).Copy
Rows(i + 1).Insert Shift:=xlDown
Cells(i + 1, "j") = "'" & a
Cells(i + 1, "o") = a
Cells(i + 1, "q") = a
Cells(i + 1, "w") = a / Val(Cells(i, "u"))
End If
Next
[i4].Select
Application.ScreenUpdating = True
End Sub