如何快速把excel中的每个工作表分成一个与工作表名称相同的工作簿

你的意思是说把excel一个工作簿中的多个工作表里的内容出来吗？我以前工作的时候遇到的一个问题，就是要把一个工作簿里的某一个工作表分出来，比如说sheet1工作，你右键单击名称，选择“移动或复杂工作表”出现一个“移动或复杂工作表”的框，在“工作簿”下面的下拉菜单里选择“新工作簿”；在“建立副本”前面的方框里打

Sub 复制工作表()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Workbooks.Add
sh.Copy Workbooks(2).Worksheets(1)
Application.DisplayAlerts = False
For i = 1 To 3
Worksheets(2).Delete

Next
Application.DisplayAlerts = True
Workbooks(2).SaveAs Filename:="C:\Documents and Settings\Administrator\桌面\" & Sheets(1).Name & ".xls"
Workbooks(2).Close
Next
End Sub

用以上宏代码即可，，是按你的要求做的。文件将另存为桌面。
注意，用的时候只打开要拆分的excel文件，其它的excel请暂时关闭，不然会出错。
如果不会用，请在网上搜宏的使用。谢谢