excel表格如何保留表头，然后拆分多条数据？

Question

我有一个excel总表，里边有1000条数据，想要拆分成每5条数据一个表格，但是要每个表格表头都固定。已有拆分代码，但是没有表头，请问大侠如何把表头添加进去？代码如下：
Sub aa()

Dim i&

For i = 1 To 1000 Step 5

Sheets.Add after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = i

Range("a" & i & ":iv" & i + 4).Copy Sheets(Sheets.Count).[a1]

Next i

End Sub

Answer 1

是说绘制斜线表头吗？表格菜单下有这个功能。如果拆分是不可能的，单元格是最小单位，只能合并，不能拆分

Answer 2

提问不把条件写全？

设你表头有4行，总表是Sheet1工作表。

Sub aaa()
    Dim i&
    For i = 5 To 1000 Step 5
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = i
        Sheet1.Range("a1:i4").Copy Sheets(Sheets.Count).[a1]
        Sheet1.Range("a" & i & ":iv" & i + 4).Copy Sheets(Sheets.Count).[a5]
    Next i
End Sub

本回答被提问者采纳

Answer 3

在写一次这个COPY过程；先 把原表的表头所在单元格复制一次；比如原头为A1:G1

Range("a1:g1").Copy Sheets(Sheets.Count).[a1]

这句就要改为A2

Range("a" & i & ":iv" & i + 4).Copy Sheets(Sheets.Count).[a2]