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,运行即可。
。
只需要写一段宏:
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,运行即可。
。收起