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

发布网友发布时间：2022-04-30 14:17

共1个回答

热心网友时间：2022-06-23 01:01

你将数据复制到附件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

追问完美！！还有个小问题，如果我这个表有四万多条，而我不想去估算大改需要多少sheet，那
该怎么编？怎么设这个sheet值？

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com