【excel小技巧：怎么拆分一个工作簿中的多个工作表？】

quanszhou

hr的工作中，肯定会遇到一种情况，导出的数据是一个大的工作簿，我们需要的内容按照分类分成了多个工作表，但是后续的工作呢，需要我们把一个工作簿拆分成多个工作表发给不同的对接人，五个以下的表我们可能就手动复制粘贴了，那要是十个二十个呢？

$ _0 ]+ x$ C9 C请看这里！一个代码就能解决你的困扰~~
: x& Z2 e; m4 N% _$ t" G0 Q建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：

Private Sub 分拆工作表()
! b5 ~* P) d% u) X3 E# }( h+ `       Dim sht As Worksheet
       Dim MyBook As Workbook
1 w) A5 s% b5 P* O, _* N; U5 x       Set MyBook = ActiveWorkbook
' j- O0 \7 K* K8 I       For Each sht In MyBook.Sheets
2 H8 @* o7 G- d           sht.Copy
7 u- K' `7 T' N9 s           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
' h, r) ^- W2 O6 x& T( L           ActiveWorkbook.Close
% U) t6 `' B0 @- [) j8 y       Next
       MsgBox "文件已经被分拆完毕!"
% \$ U2 s* ^5 k% ]   End Sub

单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~

1 ^. x5 d$ s2 U% a/ [& ?% F百度是最好的老师！~有木有~
( @& u4 z. ]) A8 c1 E+ h% x
" }' Z7 A' Y# E. H' i


7 I2 Q& n/ i$ O/ b. Q