- Sub Macro1()
- Dim arr, brr, i&, j&, s&, n&
- arr = Range("a1").CurrentRegion
- ReDim brr(1 To 60000, 1 To UBound(arr, 2))
- For i = 2 To UBound(arr)
- n1 = arr(i, 3) \ arr(i, 4)
- n = IIf(arr(i, 3) Mod arr(i, 4) = 0, n1, n1 + 1)
- For j = 1 To n
- s = s + 1
- brr(s, 1) = arr(i, 1)
- brr(s, 2) = arr(i, 2)
- brr(s, 3) = IIf(j > n1, arr(i, 3) Mod arr(i, 4), arr(i, 4))
- brr(s, 4) = n & "" & j
- Next
- Next
- [g1:j1] = Array("合同号", "物品", "数量", "箱数")
- Range("g2").Resize(s, 4) = brr
- End Sub
复制代码 |