- 最后登录
- 2014-10-28
- 注册时间
- 2014-4-15
- 威望
- 0
- 金钱
- 680
- 贡献
- 136
- 阅读权限
- 30
- 积分
- 816
- 日志
- 0
- 记录
- 0
- 帖子
- 18
- 主题
- 1
- 精华
- 0
- 好友
- 1
 
签到天数: 6 天 [LV.2]偶尔看看I  - 注册时间
- 2014-4-15
- 最后登录
- 2014-10-28
- 积分
- 816
- 精华
- 0
- 主题
- 1
- 帖子
- 18
|
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
|
-
总评分: 金钱 + 20
查看全部评分
|