EXCEL880拆分工作表 用VBA将EXCEL文件中多个工作表一键拆分为多个单独的文件 图文

2016年10月13日20:56:07EXCEL880拆分工作表 用VBA将EXCEL文件中多个工作表一键拆分为多个单独的文件 图文已关闭评论 6,916 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

Excel880拆分工作表

有一天,一个网友给我一个工作表,里面有几十个sheet(工作表),他说他想要把这些工作

 

表拆分出来一个sheet存一个文件,问我有没有好办法。相信很多人有这种需求,这里我介绍

 

一个用vba拆分工作表的简单方法

1.打开一个excel文件,按下ALT+F11

 

 

2.顶部菜单栏插入模块

3.模块中粘贴下述代码

Sub 拆分工作表() 
    For Each sht In ThisWorkbook.Worksheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xlsx" '03版xlsx改为xls
        ActiveWorkbook.close false
    Next
End Sub

4.在代码区 按下F5 执行即可
VBA代码如何使用请参见

视频教学Excel中如何使用网上搜索到的VBA代码及代码文件