急!如何将电子表格中的每一页变成独立的电子表格,比如表格一中有5页,怎么变成5个独立的表格?谢谢~
答案:4 悬赏:40 手机版
解决时间 2021-02-11 20:55
- 提问者网友:我一贱你就笑
- 2021-02-10 22:41
急!如何将电子表格中的每一页变成独立的电子表格,比如表格一中有5页,怎么变成5个独立的表格?谢谢~
最佳答案
- 五星知识达人网友:平生事
- 2021-02-11 00:19
用的是 office吗? 是的话可以用 VBA来做。
说清楚:
1、是复制出来还是移知动出来?道也就是生成新工作簿回后,原来的工作簿是否保留这个表?
2、生成的新工作簿的表名是否需要修改?
3、生成的新工作簿是否需要保答存?保存到什么地方?工作簿的名称又是什么?
说清楚:
1、是复制出来还是移知动出来?道也就是生成新工作簿回后,原来的工作簿是否保留这个表?
2、生成的新工作簿的表名是否需要修改?
3、生成的新工作簿是否需要保答存?保存到什么地方?工作簿的名称又是什么?
全部回答
- 1楼网友:妄饮晩冬酒
- 2021-02-11 03:28
这个只2113有用vba完成5261。你试4102试下面的1653代码:版
Sub test()
Dim origwb As Workbook
Dim destwb As Workbook
Dim ws As Worksheet
Dim x As Integer
For x = 1 To Sheets.Count
Set origwb = ThisWorkbook
Set destwb = Workbooks.Add
Set ws = origwb.Sheets(x)
ws.Copy before:=destwb.Sheets(1)
destwb.SaveAs ThisWorkbook.Path & "/" & [x] & "工作表权.xls"
destwb.Close
Next
End Sub
- 2楼网友:时间的尘埃
- 2021-02-11 02:04
我不太会,一直没有高人回答你又着急的话,就用笨方法得了,新建五个excl.分别复制粘贴一下。
- 3楼网友:神的生死簿
- 2021-02-11 01:42
你是说sheet吗?右键点sheet标签,移动或复制,工作簿里选“新工作簿”,看你需要勾选“建立副本"。这方法可以让sheet在任何工作簿(就是你说的独立电子表格)里移动。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯