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

2024-12-01 08:40:49

推荐回答（2个）

回答（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

回答（2）：

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