excel一个工作簿中多个工作表怎么拆分成多个工作

家电维修 2022-11-07 17:58www.17kangjie.cn家电维修培训

一个Excel中会出现有很多个工作表的情况,有时会根据需要将他们拆分成不同的工作簿,该怎么做呢?

材料/工具

Excel

方法

打开一个Excel工作薄,里面有很多个不同的工作表

找到工作表的名字,并右击鼠标,找到“查看代码”

进入后页面显示如下

在空白处粘贴复制以下内容Private Sub 分拆工作表()

  Dim sht As Worksheet

  Dim MyBook As Workbook

  Set MyBook = ActiveWorkbook

  For Each sht In MyBook.Sheets

  sht.Copy

  ActiveWorkbook.SaveAs Filename:=MyBook.Path & "'" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

  ActiveWorkbook.Close

  Next

  MsgBox "文件已经被分拆完毕!"

  End Sub

点击页面上方“运行”-“运行子过程/用户窗口”即可拆分

Copyright © 2016-2025 www.17kangjie.cn 长沙家政网【一起康洁家政】 版权所有 Power by