ABS
前几天刚好写过一个宏可以实现。Sub aa()tp = ThisWorkbook.PathIf Left(tp, 1) \ Then tp = tp & \wn = ThisWorkbook.Namesn = ActiveSheet.Namers = InputBox(请输入每个表分多少行数据, , 1000)rs = Int(
ABS(rs))m = [A65536].End(xlUp).Row / rsIf m Int(m) Then m = Int(m) + 1For n = 1 To m Workbooks.Add Workbooks(wn).Sheets(sn).Range(Cells(rs * (n - 1) + 1, 1), Cells(rs * n, 10)).Copy ActiveSheet.Paste ActiveWorkbook.SaveAs tp & n & .xlsx ActiveWorkbook.CloseNextEnd Sub这里是默认1000行拆成1个表，最后自动按照序号保存为文件。也可以下载附件，然后把你的所有数据都放附件的sheet1表中，然后运行宏aa忘记说了 这个是另存为2007的
excel格式的，如果你需要2003版本的，一下我来修改。
