如何将Excel每一张工作表转换成单独的工作薄（excel如何单独只发一个工作表）

这个需要使用代码来拆分比较快一些。在你需要拆分的工作簿中新建一个模块，将下面的代码复制模块中，然后执行就行。Sub 拆分到工作簿()Dim wk As Workbook, ss$, k%Application.DisplayAlerts = FalseFor Each sht In ThisWorkbook.Sheets Set wk = Workbooks.Add k = k + 1 ThisWorkbook.Sheets(k).Copy Workbooks(2).Sheets(1) ss = ThisWorkbook.Path & "" & sht.Name & ".xlsx" wk.SaveAs ss wk.CloseNextApplication.DisplayAlerts = TrueMsgBox "拆分工作簿完成！"End Sub