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

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