如何在excel中将一个工作表等行分成多个表

Question

如题所述

Answer 1

你将数据复制到附件SHEET1中，或将以下指令复制到宏中，执行宏指令即可。
Sub Macro1()
Dim i As Integer
For i = 1 To 100
    Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "分解" & i
    Sheets("sheet1").Activate
    ActiveSheet.Range(Cells((i - 1) * 100 + 1, 1), Cells(i * 100, 3)).Copy
    Sheets("分解" & i).Activate
    ActiveSheet.Paste
Next
End Sub

Answer 2

如何将一张工作表拆分成多个工作表？