请教有关excel的问题。
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