EXCEL工作组中有很多表格，但是需要发送给不同的人不同的表格，怎么样能一下就把工作组中的表拆分成不同的单独的表格？？
我的问题是，这个工作组中有很多表，我不想一个一个那么移动复制，太费时间了。能不能一次把很多工作表都分别移动复制到不同的EXCEL中呢？

只需要写一段宏：
Sub fenjiesheet()
Application.ScreenUpdating = 0
N = ThisWorkbook.Name
For i = 1 To Sheets.Count - 1
ActiveSheet.Move
Workbooks(N).Activate
Next
End Sub

点击Alt+F8,运行即可