如何将excel里的多个工作博变成单个excel表格

Question

如题所述

Answer 1

工作中经常会用到excel，熟练的运营excel可以高效的减少工作量，很多人制作excel时会将不同的数据分类，就形成了一个excel中有多个工作表(sheet)，但是由于某些原因需要将这些工作表单独放到一个excel中，但由于数据量大会给我们的工作带来很多困扰，怎么将excel多个工作表拆分成多个单独的excel？excel是个很强大的软件，我们来看一下拆分一个Excel工作簿中的多个工作表的方法
开启分步阅读模式
工具材料：
excel
操作方法
01
例如工作薄中有多个工作表，如图：

02
将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果

03
打开需要拆分的excel，在任意工作表右击，点击“查看代码”

04
在打开的窗口中输入如下代码：
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:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub

05
点击绿色三角，运行程序，等待拆分。

06
拆分成功后，会弹出窗口提示。

07
返回Excel工作簿文件所在路径 即可查看已经拆分的工作薄。

特别提示
拆分后的工作薄格式为.xlsx
电脑上有安装excel2007或有兼容包