版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。3 篇文章0 订阅
订阅专栏
1、按住ALT + F11键打开Microsoft Visual Basic for Applications窗口或者是在sheet页的名字处右键,点击查看代码
2、 点击插入>模块,并将以下代码粘贴到模块窗口中。
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:=xlNormal '将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub
3、按F5运行代码