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

2016年10月13日20:56:07 评论 5,371 views

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

  • 微信扫码免费学习
  • 免费学习48小时
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin