你的数据表是sheet1,我下面的vba是把sheet1的500行复制到sheet2，然后删除sheet1的500行，再把sheet2另存在f:\111目录下，自动取名为1.xls，名字是逐步累加，我设置循环21此，也就是下面i>20那里控制，你自己改成需要的循环次数。最后还有一个重点，你下次问此类问题最好给高分，0分太没诚意，真的，这段代码对你很重要，要不是今天我有兴趣，我还不看这些0分的悬赏！Sub zz20100901()Dim wks As Worksheet
Set wks = Worksheets("sheet2") '把sheet For i = 1 To 999
S
