300行
现要分成5个表
第一个表1.6.11....
第二个表2.7.12....
第三个表。。。。
怎么弄啊。谁指点指点。
------解决方案--------------------------------------------------------
添加一列判断
利用5的倍数判断这一行应该在那一页上
这样每行就有一个判断列1-5的结果
用筛选判断列
复制结果贴到5个表内
------解决方案--------------------------------------------------------
比如总表为Sheet1，将其分到Sheet2~6里
- VB code
Sub Divide() Dim ShareNum As Integer, i ShareNum = 5 Application.ScreenUpdating = False For i = 1 To 300 Sheet1.Rows(i).Copy Sheets((i - 1) Mod ShareNum + 2).Select Sheets((i - 1) Mod ShareNum + 2).Rows(Int((i - 1) / ShareNum) + 1).Select ActiveSheet.Paste Next i Application.ScreenUpdating = tureEnd Sub