- 最后登录
- 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的工作中,肯定会遇到一种情况,导出的数据是一个大的工作簿,我们需要的内容按照分类分成了多个工作表,但是后续的工作呢,需要我们把一个工作簿拆分成多个工作表发给不同的对接人,五个以下的表我们可能就手动复制粘贴了,那要是十个二十个呢?& c- Q' v! T6 O4 H4 c- ?" g6 F
6 k2 k5 i- X9 y请看这里!一个代码就能解决你的困扰~~: T2 n q3 ^* O
建立一个新的文件夹,把需要拆分的工作簿复制进去,打开工作,在工作簿中任意右键点击一个工作表标签,在弹出的下拉列表中选择查看代码,然后可以看到弹出的代码窗口,点击菜单插入-模块,在弹出的模块对话框中 输入以下代码:
0 n! b8 M! {; _; Y& j
. d! V) {. ]3 xPrivate Sub 分拆工作表()* w' u" o$ F2 V/ E
Dim sht As Worksheet" I8 C( i0 y5 Q: d0 H/ Z" E
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. N) V+ T; v$ R$ I7 v: K7 h( X, Z
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式3 z, C; T1 K$ }; |- q+ s0 E& l$ }
ActiveWorkbook.Close4 h0 {# f: ^; E
Next
# @4 y4 ^. D7 ~" Y MsgBox "文件已经被分拆完毕!"
7 A8 Q' O; t- ?* a% @+ H, T; [ End Sub) S) _3 G" z4 o/ [" k9 B
: g1 e3 e* k7 E2 t/ X# K
单击运行-运行子过程|窗体,过几秒后,弹出提示窗口“文件已被拆分完毕“,然后看一下新建的文件夹!所有的工作表都成了独立的工作簿了!~
" 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) N3 |/ O4 m: A, B# _: ~
; u7 `) t+ }7 o4 g7 a |
-
总评分: 金钱 + 20
查看全部评分
|