你将数据复制到附件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
如何将一张工作表拆分成多个工作表？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024