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

quanszhou

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

6 k2 k5 i- X9 y请看这里！一个代码就能解决你的困扰~~
建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：
0 n! b8 M! {; _; Y& j
. d! V) {. ]3 xPrivate Sub 分拆工作表()
       Dim sht As Worksheet
       Dim MyBook As Workbook
' o, U- R# m% t! P       Set MyBook = ActiveWorkbook
) m0 M2 I( a+ u1 G       For Each sht In MyBook.Sheets
: j" t7 U$ ~+ I: j9 v           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
# @4 y4 ^. D7 ~" Y       MsgBox "文件已经被分拆完毕!"
7 A8 Q' O; t- ?* a% @+ H, T; [   End Sub

单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~
" i# R* i1 s6 S! p, I; N
$ R2 j; _/ C! _2 D" z' Z2 H百度是最好的老师！~有木有~
  N: `7 O, l/ h) o2 K9 k
6 c( _" U! P8 l0 x* h( G
' q5 V1 l7 T2 D4 X  e
. x- l9 f4 M% D; Y
7 h& ^7 B/ m- B* ~6 f$ ~
& E3 k; ~, Z+ y

; u7 `) t+ }7 o4 g7 a