如何將一個工作簿中多個工作表拆分成獨立的工作簿

第一步：右鍵隨便選中一個sheet，點擊查看代碼，進入vb代碼編寫頁面

 

直接將下面這些代碼復制到vb代碼框即可。

 

Private Sub 分拆工作表()

 

Dim sht As Worksheet

 

Dim mybook As Workbook

 

Set mybook = ActiveWorkbook

 

For Each sht In mybook.Sheets

 

If sht.Visible = True Then

 

sht.Copy

 

ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht.Name, FileFormat:=xlNormal '將工作簿另存為excel默認格式

 

ActiveWorkbook.Close

 

End If

 

Next

 

MsgBox "文件已經被分拆完畢!"

 

End Sub

 

第二步：復制完成后，點擊三角按鈕，然后一直繼續下去就好了。最后會在你放excel的文件下生成被分割后的所有excel（比如：你的原來excel放在桌面，它就會把分割后的excel也放到桌面）