如何在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％，并减少数百次鼠标单击！