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

quanszhou

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

- ?" v% J! j- |3 k4 q4 S请看这里！一个代码就能解决你的困扰~~
4 N2 M- w( n8 t# G% I5 M3 B1 z' r建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：

5 R/ T$ p( v5 R: I+ w$ [. qPrivate Sub 分拆工作表()
       Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
/ v: J" O) {; U1 v       For Each sht In MyBook.Sheets
           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
% I" k+ [. ^- z+ M; ~, K0 j       MsgBox "文件已经被分拆完毕!"
/ u$ U; r' _) k2 ]# z   End Sub
1 E& l3 ?  |/ w  S2 W
2 I- B! `+ P6 O, C! w0 s, O  Z9 c7 y单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~

' c- Z" o' ]  M) R' o# t# G: F* w百度是最好的老师！~有木有~

* N/ M2 u5 w" S* u' ]


- t$ L/ p$ @) }; H

9 ~& I+ q2 C% @3 A. ?6 Q5 n
9 Q- S& W9 z( c- ^