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

quanszhou

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

请看这里！一个代码就能解决你的困扰~~
$ h9 @3 H" _# V* u  J9 F! Q$ G# U  i建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：
% q; l) p$ v' p, w& X1 D+ }) R- S
, T9 A* l6 l! z2 t( D0 EPrivate Sub 分拆工作表()
% e$ ?$ N. \$ }, m, C# F3 r       Dim sht As Worksheet
0 A+ ]9 T  _1 B4 q1 @       Dim MyBook As Workbook
9 u, w+ t" s9 O. e/ P6 |" z; S       Set MyBook = ActiveWorkbook
9 _% @6 ~1 y3 k1 L6 [5 o8 i       For Each sht In MyBook.Sheets
           sht.Copy
% U6 D0 y6 x  N  `           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
. j- F- i& T9 A" j) u6 z: t5 l       Next
; v: a2 V. @* n9 ~5 o. Z& l       MsgBox "文件已经被分拆完毕!"
   End Sub

单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~
( d" J% g2 D) w  g
百度是最好的老师！~有木有~
$ Z* ^  P0 p! i% @! U' N

( x4 a9 `3 F  x- Y. D5 }+ [
& K+ I' B0 q4 l- W+ d/ p

% j0 m; E; V3 g( \2 U