excel一个工作簿中多个工作表拆分成多个工作簿

时间:2024-10-14 05:21:41

1、打开表格,如下一个工作簿中有多个工作表。

excel一个工作簿中多个工作表拆分成多个工作簿

2、右击工作表名称,点击查看代码(V)。

excel一个工作簿中多个工作表拆分成多个工作簿

3、显示如下页面。

excel一个工作簿中多个工作表拆分成多个工作簿

4、空白处,复制黏贴如下信蝌怦吩曰息: 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

excel一个工作簿中多个工作表拆分成多个工作簿

5、点击运行-运行子过程/用户窗体。

excel一个工作簿中多个工作表拆分成多个工作簿

6、完成后,保存,显示如下。

excel一个工作簿中多个工作表拆分成多个工作簿
© 手抄报圈