若干条数据 按顺序分到30个EXCEL里

Question

我有5000条数据，需要按照顺序放到30个EXCEL文件里面。。。
第1行——excel1
第2行——excel2
第3行——excel3
..
第29行——excle29
第30行——excle30
_______________________________________________第一轮结束
第31行——excle1
第32行——excle2
...
第59行——excle29
第60行——excle30
_____________________________________________第二轮结束
依次类推。。。直至没有数据，，，，或者到我规定的行数结束。。。

请大家帮个忙，要不然我会累死的。。

谢谢了

Answer 1

假设有数据的表的名字叫“数据”，右键点它下面的标签，选“查看代码”，把下面代码复制进去，执行后，会自动生成30个新工作表，每个表中依次从“数据”表中取得相应数据。

Sub abc()
n = 30 '建立工作表数量
s = 5000 '数据的总行数
For i = 1 To n
'Sheets.Add.Name = i
Next
For i = 1 To n
x = 1
For j = i To s Step n
Sheets(CStr(i)).Cells(x, 1) = Sheets("数据").Cells(j, 1)
x = x + 1
Next
Next
End Sub

Answer 2

sheet1!A1=OFFSET(源表!$A$1,(ROW()-1)*30,)
sheet2!A1=OFFSET(源表!$A$2,(ROW()-1)*30,)
sheet3!A1=OFFSET(源表!$A$3,(ROW()-1)*30,)
......
向下复制公式即可.