将一个工作簿拆分为多个工作表

1.打开要拆分的工作簿-【开发工具】-【宏】

2.输入名称，点击创建。

3.输入以下代码。

Sub 拆分工作表()On Error Resume NextApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim Sht As Worksheet, Nwb As Workbook, Owb As WorkbookDim OPath As String, NPath As StringSet Owb = ActiveWorkbookOPath = Owb.PathIf Len(OPath) <> 0 ThenNPath = OPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-拆分"MkDir NPathFor Each Sht In Owb.WorksheetsSht.CopySet Nwb = ActiveWorkbookNwb.SaveAs NPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-" & Sht.Name & ".xlsx"Nwb.CloseNextMsgBox "拆分后的文件已保存至:" & NPathEnd IfApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub

4.返回到工作表中，点击宏，选择执行即可。