一个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
点击页面上方“运行”-“运行子过程/用户窗口”即可拆分