拆分总表到单独表格

parcal

因工作需要，求助各大神帮忙写VBA。谢谢大神们

要求：
1，把第一个总表(共有86项)，拆分成每其他单独表格；
2，每个单独表格的总价不能高于“900”。

abc123281

要求不明白，如何拆分，按什么来拆分

parcal

abc123281 发表于 2018-7-29 20:03
要求不明白，如何拆分，按什么来拆分

按总价来拆分，且拆分后的每个表格最后的总价（各项总价相加）不超大于900.

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ActiveSheet
   
4.     arr = sh.UsedRange
   
5.     x = 2
   
6.     sm = 0
   
7.     For j = 2 To UBound(arr)
   
8.         sm = sm + arr(j, 5)
   
9.         If sm > 900 Then
   
10.             Sheets.Add after:=sh
    
11.             Union(sh.[a1:h1], sh.Cells(x, 1).Resize(j - x, 8)).Copy Sheets(2).[a1]
    
12.             x = j
    
13.             sm = arr(j, 5)
    
14.         End If
    
15.     Next j
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

liulang0808

楼主的需求，看不大明白，简单模拟一个，供参考

parcal

liulang0808 发表于 2018-7-30 08:13
楼主的需求，看不大明白，简单模拟一个，供参考

版主，我的意思是拆分后的各项总价的和不超过900.

liulang0808

parcal 发表于 2018-7-30 21:46
版主，我的意思是拆分后的各项总价的和不超过900.

建议楼主举例描述具体需求