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

2016年10月13日20:56:07 评论 6,234 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

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代码及代码文件

表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页