excel表内如何设计自动拆分

【求助帖】请及时确认最佳答案，下次提问时可以得到更多关注，问题可以更快解决

excel表内如何设计最小包装与箱数，比如以下笔的数量为1000，如果笔的数量为200，也能自动识别是1箱，复制能后能自动拆分成4箱或者是1箱，其中最后能自动计算一箱只有100支，产品中间不能有空当，产品项目中如果平时产品量少还能手工处理，如果产品达到500多种那工作量太大，而且是重复工作太多，是否有高手可以帮忙解决这个难题。

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&, s&, n&
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To 60000, 1 To UBound(arr, 2))
   
5. For i = 2 To UBound(arr)
   
6.     n1 = arr(i, 3) \ arr(i, 4)
   
7.     n = IIf(arr(i, 3) Mod arr(i, 4) = 0, n1, n1 + 1)
   
8.     For j = 1 To n
   
9.         s = s + 1
   
10.         brr(s, 1) = arr(i, 1)
    
11.         brr(s, 2) = arr(i, 2)
    
12.         brr(s, 3) = IIf(j > n1, arr(i, 3) Mod arr(i, 4), arr(i, 4))
    
13.         brr(s, 4) = n & "" & j
    
14.     Next
    
15. Next
    
16. [g1:j1] = Array("合同号", "物品", "数量", "箱数")
    
17. Range("g2").Resize(s, 4) = brr
    
18. End Sub

复制代码

dsmch

下次上传附件，方便大家帮你

先顶一个，好用

zwcwqk

QQ_03C5B8 发表于 2014-9-21 20:57
先顶一个，好用

请给予拆分，急用！