一个EXCEL表格中含有多个工作表,怎么分出来?
5个回答
展开全部
打开这个excel (最好放到某个文件夹内)
按alt+F11, 视图---代码窗口 --把如下复制进去--按F5 运行即可
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Next i
Application.ScreenUpdating = true
End Sub
按alt+F11, 视图---代码窗口 --把如下复制进去--按F5 运行即可
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Next i
Application.ScreenUpdating = true
End Sub
更多追问追答
追问
这个是干吗的呀
追答
将一个工作薄内的所有工作表 存成 独立的工作薄(同一文件夹)
比如一个工作薄有100个工作表, 把这100个工作表自动存成100个文件,
你不是会录制宏么? 想你 应该看的懂啊
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-07-15
展开全部
多复制几份,分别打开,然后再分别把不需要的删掉不久ok 了。
追问
太多了啊,要分到什么时候的!!主要是登记台账的,用宏那个只能录上表格的第一个工作表,后面的就不行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-07-15
展开全部
还是没懂得起,可以在表格里设公式把所有数据合到一起哈
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
数据透视表拆分表格
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询