手工操作方法，在每个工作表上点鼠标右键选择【移动或复制】然后复制到新工作簿，最后另存为，如果表太多操作比较心烦，可以使用下面的宏：
Sub 宏1()
For Each st In Sheets
st.Copy
ActiveWorkBook.SaveAs st.Name
ActiveWorkBook.Close '如果保存后不关闭就删除此行
Next st
End Sub
手工操作方法，在每个工作表上点鼠标右键选择【移动或复制】然后复制到新工作簿，最后另存为，如果表太多操作比较心烦，可以使用下面的宏：
Sub 宏1()
For Each st In Sheets
st.Copy
ActiveWorkBook.SaveAs st.Name
ActiveWorkBook.Close '如果保存后不关闭就删除此行
Next st
End Sub
