设为首页 登录 注册
首页 中人社区 中人博客
查看: 2082|回复: 0
打印 上一主题 下一主题

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

[复制链接]

1

主题

6

听众

816

积分

秀才

Rank: 5Rank: 5

签到天数: 6 天

[LV.2]偶尔看看I

注册时间
2014-4-15
最后登录
2014-10-28
积分
816
精华
0
主题
1
帖子
18
跳转到指定楼层
楼主
发表于 2014-4-15 16:21:39 |只看该作者 |倒序浏览
hr的工作中,肯定会遇到一种情况,导出的数据是一个大的工作簿,我们需要的内容按照分类分成了多个工作表,但是后续的工作呢,需要我们把一个工作簿拆分成多个工作表发给不同的对接人,五个以下的表我们可能就手动复制粘贴了,那要是十个二十个呢?
* {  Q5 }' @7 a8 H9 a! Y. g
. l$ v7 L5 L6 c  G$ `+ o请看这里!一个代码就能解决你的困扰~~8 F# L! K; v" F; \% Z
建立一个新的文件夹,把需要拆分的工作簿复制进去,打开工作,在工作簿中任意右键点击一个工作表标签,在弹出的下拉列表中选择查看代码,然后可以看到弹出的代码窗口,点击菜单插入-模块,在弹出的模块对话框中 输入以下代码:
' Q, r$ q1 f" m/ B" {* m! R# o
" [0 u1 j1 w7 q- t. ^8 |" `4 pPrivate Sub 分拆工作表()
  v8 S+ S) p5 l5 ]: \2 I: Q       Dim sht As Worksheet. V. S9 P, v, E2 I. M  d3 w, @
       Dim MyBook As Workbook* O* d* _" p7 l3 s7 T" F
       Set MyBook = ActiveWorkbook- K3 g# F! U' ~. k! ~
       For Each sht In MyBook.Sheets
" x+ z- O& ~. a8 i; g( s+ L           sht.Copy+ H) G5 D+ r1 i0 t
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式) N- ~; {5 g! R. o
           ActiveWorkbook.Close" a1 y+ v- g3 j7 G* c) ~
       Next
2 a5 P6 v! u7 M/ f       MsgBox "文件已经被分拆完毕!": m, S5 X- ?/ W/ W9 M0 I$ o
   End Sub
. @. i$ r, q/ y0 r1 {
7 d& k/ F! u" B* k% a* F9 e单击运行-运行子过程|窗体,过几秒后,弹出提示窗口“文件已被拆分完毕“,然后看一下新建的文件夹!所有的工作表都成了独立的工作簿了!~
7 z' V& o% D$ i
8 C) K( }% f: j. u; g8 P9 l百度是最好的老师!~有木有~$ F3 x- v4 y5 ^, w: x+ b+ B: t
0 Q) I. C! A2 l8 G% T: }: k
4 g) p4 s& H: ?  Y& h: u  s+ [3 C
  N+ z4 u; w0 o: T; K% y; H
- \5 ?) b3 i* [8 P
$ K( i0 T$ X" I1 P' X
" }; m7 L, I% u' {2 `9 L# `) e4 ^
, S2 i4 U$ Y8 d4 g5 o, U+ K
已有 1 人评分金钱 收起 理由
懒猫琪琪 + 20 很给力!

总评分: 金钱 + 20   查看全部评分

您需要登录后才可以回帖 登录 | 注册