怎么将Excel多个工作表拆分成多个单独的Excel
工作中经常会用到excel,熟练的运营excel可以高效的减少工作量,很多人制作excel时会将不同的数据分类,就形成了一个excel中有多个工作表(sheet),但是由于某些原因需要将这些工作表单独放到一个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工作簿文件所在路径 即可查看已经拆分的工作薄。 
 赞 (0)
                        
