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

发布网友发布时间：2022-04-23 07:29

共3个回答

热心网友时间：2022-06-17 16:59

提问不把条件写全？

设你表头有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

热心网友时间：2022-06-17 16:59

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

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

这句就要改为A2

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

热心网友时间：2022-06-17 17:00

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