急！！！Excel 中何将大量的数据，自动分成小批量的多个独立表格，并保留表头。VBA

Question

比如总表有6万条数据，需要将其中每2000条记录建一个表，同时每个表的表头与原表中的表头一致。

Answer 1

以下代码假定表头为第一第二行，同时A列无空
Sub aaa()
Dim asheet As Worksheet, bsheet As Worksheet
Dim i As Long
Set asheet = ActiveSheet

i = 3

Do Until asheet.Cells(i, 1) = ""
Rows("1:2").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Set bsheet = ActiveSheet
ActiveSheet.Paste
asheet.Activate
Rows(i & ":" & i + 2000).Select
Selection.Copy
bsheet.Activate
Rows("3:3").Select
ActiveSheet.Paste
i = i + 2000
Loop

MsgBox ("Done")
End Sub追问

一个小问题，试用之后拆分的表保留了前2行，但只需要保留表头就可以。
另外能不能拆分出单独的工作表文件而不是工作簿。
最好能依次重命名为“PW30_20170620_0001";“PW30_20170620_0002";“PW30_20170620_0003"
麻烦了

Answer 2

利用筛选功能可以的追问

数据量多，手动复制粘贴过于繁琐

Answer 3

路过，可私信联系