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

具体是，假设一个excel文件里sheet1有10000行，3列数据，从第一行开始就有数据。现想把它分好多个sheet，每个sheet包含100行的数据。请问下要怎么操作，用VBA还是什么宏的，求大神帮忙，谢谢！！

推荐答案 2015-12-10

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/DrBjBDr0TIBDnnZZjrI.html

其他回答

第1个回答 2020-12-18

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

相似回答

怎样把excel中的一个工作表中的行拆分成若干个独立的Excel文件?答：1.打开Excel，找到并点击“工具”或“文件”选项，然后在下拉菜单中选择“加载项”或“加载加载项”选项。2.在打开的对话框中，查找并选择方方格子或其他提供汇总拆分功能的加载项，它通常包含在可自定义的加载项列表中。点击“添加”或“启用”按钮，等待加载完成。3.一旦加载项加载，你可以在菜单栏或...

如何在excel中将一个工作表等行分成多个表?答：你将数据复制到附件SHEET1中，或将以下指令复制到宏中，执行宏指令即可。Sub Macro1()Dim i As IntegerFor i = 1 To 100 Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "分解" & i Sheets("sheet1").Activate ActiveSheet.Range(Cells((i - 1) * 100 + 1, 1), ...

如何将一个excel工作表的数据拆分成多个sheet?答：1.打开Excel表格之后，我们首先在空白表格处依次将要创建的工作表名称按列输入。2.接着我们全选这部分内容，然后点击工具栏中的“插入”，在插入对应的页面内勾选“表格”-“数据透视表”。3.在弹出的创建数据透视表对话框，首先勾选页面中间的“现有工作表”，然后将位置定位到任一空白单元格内。4....

excel怎么将一张工作表拆分成多个工作表答：excel将一张工作表拆分成多个工作表方法如下：打开需要编辑的Excel文档。如图所示，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。点击菜单插入-模块在弹出的模块对话框中输入以下代码：...

大家正在搜

如何在excel中将工作表命名 excel将图表作为新工作表在excel工作表中 excel表格怎么命名工作表 excel将工作表命名 excel中怎么命名工作表将图表嵌入工作表中如何将工作表重新命名怎么将Excel表的分表重命名