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

quanszhou

hr的工作中，肯定会遇到一种情况，导出的数据是一个大的工作簿，我们需要的内容按照分类分成了多个工作表，但是后续的工作呢，需要我们把一个工作簿拆分成多个工作表发给不同的对接人，五个以下的表我们可能就手动复制粘贴了，那要是十个二十个呢？
; ^8 I$ v' u( ^) g* E9 S  s
. U% Y$ b  Y( \7 v: b9 O请看这里！一个代码就能解决你的困扰~~
$ D. b, K5 h0 J0 m& }; X# K3 [; Q% l建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：
3 ^* W+ i2 j% t) I6 c) K
Private Sub 分拆工作表()
       Dim sht As Worksheet
) E: Z" X/ f, G: b" U. ?       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
( u0 m$ ]# ], _: }* k; C           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
2 k# z3 c( {- w1 p+ C+ k( S( u* N% r           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕!"
3 m: a# l: m2 H2 m   End Sub

" j5 [7 K0 W1 ^  J1 N) u( ?单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~
" B7 |9 ]& p  \9 z/ ?# E
# m& p6 _" X  O百度是最好的老师！~有木有~
, B0 t" ^: z7 O9 L
( f# q% c; A  z( a/ V( c/ y7 P( M

: B% D: `, x3 \1 R4 |, f8 M7 @+ k! w& D- Y
" g. n# B+ E0 J% s: P/ f; B( F  B

/ g' |6 `& U9 n4 E9 h