手把手系列：拆分Excel工作簿中的多个工作表

大家在实际工作中经常会碰到拆分Excel工作表的问题，难道每次都要一次次粘贴复制，在重新调整格式么？

手把手系列教学，本期就来讲一讲如何高效拆分工作表，提高您的工作效率。

Excel拆分工作表

1.例如，一个Excel工作簿，有三张工作表，分别是一、二、三表，目的想要分别拆分这三个表。

2.右击工作表名称，比如这里右击“一”这个工作表，弹出的窗口中单击“查看代码”

3.在弹出的对话框中，输入如下代码

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

4.单击“运行”中的“运行子过程/用户窗体”

5.之后会弹出文件已经分拆完毕提示

6.可以看到当前文件夹下面拆分玩的三个文件