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

quanszhou

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

8 _$ R, o& j) \7 T请看这里！一个代码就能解决你的困扰~~
: L  g6 K4 M" r* S" M建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：
) x' e0 n) w( L+ N6 I9 b4 Z# z) V
Private Sub 分拆工作表()
5 y( K# \7 s% z' Q% _+ L       Dim sht As Worksheet
  x9 K! |1 B, j% y: D: ^1 U       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
/ s2 k" s+ e: Y$ S7 u/ b8 n. r       For Each sht In MyBook.Sheets
( ~0 N' ^/ s! X  H8 v% u           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
  G- K2 O/ R$ p" k       MsgBox "文件已经被分拆完毕!"
  P! Y$ N! R/ y1 w/ E   End Sub

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

百度是最好的老师！~有木有~
7 G/ C# ?/ s2 m8 B4 U" j9 Q; l! }
5 s" r6 s4 v+ U7 B( `$ @+ _
2 L3 @# X: x  G+ N8 g( Y% P+ b
' f5 }" \% T5 A
) y$ _! x' q9 Z" D! }4 y
( T" F" k; P% A) X% e! P1 X
6 `# \* l& w& c' O. X" T- v) v
/ U+ F1 Z. K/ [7 J1 b1 j- G