excel中 如何将大量的数据，自动均等的分成几个独立表格！比如1到100 一张表 100-200一张表

Question

并且表头也会存在分割好的每一张表格中。

Answer 1

肯定是为了任务分解用了。
要分表不难，可以使用宏来实现。
占个坑，一会把代码发上来。

按ALT+F11,双击左侧这个文件名，双击当前工作表名，然后在右侧粘贴以下代码。然后到工作表界面运行aa宏
Sub aa()
Dim newbook As Workbook
a = ThisWorkbook.Name
b = ActiveSheet.Name
h = InputBox("请输入行数")
Application.ScreenUpdating = False
For n = 0 To Range("a65536").End(xlUp).Row \ h
Windows(a).Activate
Sheets(b).Activate
Rows((h * n + 1) & ":" & (h * n + h)).Copy
Set newbook = Workbooks.Add
With newbook
newbook.Activate
ActiveSheet.Paste
.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(a, ".xls", "") & n & ".xls"
.Close
End With
Next n
Application.ScreenUpdating = True
End Sub

运行时会提示你输入行数，比如100，确定后就会自动拆成100行一个表，并加上序号保存为新文件。
有疑问可以追问。追问

这个我知道了，但是没有表头

Answer 2

提供下源文件的截图还有表头的样式，这样才好写代码追问

表格表头有点长，分两半截图了，您看看。谢谢。



追答

你是要把这个表格的记录拆分成不同的工作表还是工作簿文件（含相同的表头）？

追问

独立的工作簿文件（含相同的表头）。