如何将excel一个表格拆分成多个文件
展开全部
你的要求是什么?
下面的程序是日前一朋友要的:将一个一万行的sheet1分为100个100行的表。
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2015-12-13 · 知道合伙人软件行家
关注
展开全部
最笨的方法:另存,删除不要的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如何将一张工作表拆分成多个工作表?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询