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

quanszhou

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

. K% S7 B! h8 w) T- }请看这里！一个代码就能解决你的困扰~~
' L' v2 |% d& _8 r3 {' j- e建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：
3 x. _  S- E* L5 E; X( c
Private Sub 分拆工作表()
       Dim sht As Worksheet
       Dim MyBook As Workbook
/ z' l8 M$ n2 m+ o6 n1 G0 j       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
8 g9 B5 f$ D/ J' h$ V* N+ r           sht.Copy
9 S( ?) g- c8 n           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
- a4 S1 k* ?( s. ?0 F           ActiveWorkbook.Close
4 T* v: o  Z0 N/ \* K       Next
       MsgBox "文件已经被分拆完毕!"
   End Sub
4 [0 N9 r3 D  E6 j) ~
/ d6 c7 j$ ?1 K5 D单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~
8 u! x. |; J* h0 J$ c* h; E
0 |& W$ @0 ^- e7 y, b. O4 f- V# D百度是最好的老师！~有木有~

5 t/ C. l1 [" }4 \+ m2 E
9 @. d. g. q  P
6 {8 z1 E4 W3 Q% V% ]& E
+ @+ X3 |8 a% ?2 H
. i6 S) f- s" Y

" Y5 t/ M/ r, t% E, {" E  X% J  t