如何在excel中将一个工作表等行分成多个表?
具体是，假设一个excel文件里sheet1有10000行，3列数据，从第一行开始就有数据。现想把它分好多个sheet，每个sheet包含100行的数据。请问下要怎么操作...
具体是，假设一个excel文件里sheet1有10000行，3列数据，从第一行开始就有数据。现想把它分好多个sheet，每个sheet包含100行的数据。请问下要怎么操作，用VBA还是什么宏的，求大神帮忙，谢谢！！
展开
2个回答
展开全部
你将数据复制到附件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值？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
作为上海悉息信息科技有限公司的员工，我们可以利用Excel的高级功能来将一个工作表拆分成多个工作簿。首先，确定拆分的依据，如某列的值。然后，使用VBA（Visual Basic for Applications）编写脚本，遍历该列的值，并基...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
