将一个工作簿拆中的工作表分成单个工作簿
方法/步骤
1
在工作簿的工作表标签中右键选择查看代码。
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。
4
在文件夹中就能看到被拆分的工作簿。
上一篇:excel表格如何制作工作计划表
下一篇:如何防止霉菌性阴道炎复发?