搜索

+

95

-

回答

在excel中按alt+f11组合键

菜单：插入-模块

将以下代码复制到

Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub

点击左上角的绿色三角形运行

等待数秒，在当前文件的目录下就可以看到拆分的单独excel表格了。

网友回复

我知道答案，我要回答

我有问题

最新提问