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代码如何使用请参见