如何在Excel中將每個工作表導出并另存為單獨的新工作簿？

快速將多個工作表拆分為Excel中的單獨工作簿

在Microsoft Excel中，可以通過將工作表復制并粘貼到新工作簿中，將一個工作簿中的工作表保存或拆分為新的Excel文件。 如果要將大工作簿的每個工作表/工作表拆分為單獨的Excel，txt，csv，pdf文件，這似乎很麻煩。 但是隨著 Kutools for Excel“ 拆分工作簿 實用程序，您可以快速處理它。  點擊查看 30 天免費試用，功能齊全！ Kutools for Excel：超過300個方便的Excel插件，免費試用，沒有限制 30 天。

Sub SplitWorkbook() Updateby20200806 Dim FileExtStr As String Dim FileFormatNum As Long Dim xWs As Worksheet Dim xWb As Workbook Dim xNWb As Workbook Dim FolderName As String Application.ScreenUpdating = False Set xWb = Application.ThisWorkbook DateString = Format(Now, "yyyy-mm-dd hh-mm-ss") FolderName = xWb.Path & "\" & xWb.Name & " " & DateString If Val(Application.Version) < 12 Then FileExtStr = ".xls": FileFormatNum = -4143 Else Select Case xWb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If Application.ActiveWorkbook.HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If MkDir FolderName For Each xWs In xWb.Worksheets On Error GoTo NErro If xWs.Visible = xlSheetVisible Then xWs.Select xWs.Copy xFile = FolderName & "\" & xWs.Name & FileExtStr Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count) xNWb.SaveAs xFile, FileFormat:=FileFormatNum xNWb.Close False, xFile End If NErro: xWb.Activate Next MsgBox "You can find the files in " & FolderName Application.ScreenUpdating = True End Sub

免費下載免費全功能 30 天

Kutools for Excel: Excel 中必須具備的 300 多個函數， 30- 從這里開始免費試用。

根據Excel中的列或固定行將數據快速拆分為多個工作表

假設您有一個工作表，其中的數據在A到G列中，推銷員的名字在A列中，并且您需要根據同一工作簿中的A列將這些數據自動拆分為多個工作表，并且每個推銷員都會被拆分為一個新的工作表。 Kutools for Excel“ 分割日期 實用程序可以幫助您根據選定的列快速將數據分為多個工作表，如Excel中顯示的屏幕截圖所示。  點擊查看全功能 30 天免費試用！ Kutools for Excel：超過300個方便的Excel插件，免費試用，沒有限制 30 天。

最佳辦公生產力工具

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。 每天將您的工作效率提高50％，并減少數百次鼠標單擊！